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3. 3. 6. 2  GENERAL_VECTOR_MATRIX_ALGEBRA  (BODY)  TLCSC  P682  (CATALOG  #P197-0) 

This  part  is  a  package  of  generic  packages  and  generic  functions.  The  LLCSC's 
take  two  different  forms.  One  form  defines  vector  and  matrix  types,  along  with 
general  operations  on  these  types.  The  other  form  requires  that  vector  and 
matrix  types  be  provided  as  generic  parameters  and  performs  operations  on  data 
objects  of  different  types. 

Many  of  the  parts  have  both  an  unconstrained  and  constrained  or  restricted  and 
unrestricted  versions.  The  constrained/restricted  versions  of  these  parts  are 
less  flexible  in  the  dimensioning  of  the  input  arrays,  but  require  fewer 
internal  calculations. 

The  generic  functions/package  which  import  generic  formal  array  types  have  been 
designed  to  work  in  conjunction  with  the  data  types  exported  by  the  generic 
packages . 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 2.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 
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|  Name 

1 

Requirements  1 

Allocation  | 

General  Vector  Matrix  Algebra 

R058 

Vector  Operations  Unconstrained 

R061 ,  R062 ,  R063, 

R104 

Vector  Operations  Constrained 

R061,  R062,  R063, 

R104 

Matrix  Operations  Unconstrained 

R075,  R076,  R079, 

R080,  R155,  R156 

Matrix  Operations  Constrained 

R075,  R076,  R079, 

R080,  R155,  R156 

Dynamically  Sparse  Matrix  Operations  Unconstrained 

R226 

Dynamically  Sparse  Matrix  Operations  Constrained 

R226 

Symmetric  Half  Storage  Malrix  Operations 

R211 

Symmetric  Full  Storage  Matrix  Operations  Unconstrained 

R227 

Symmetric  Full  Storage  Matrix  Operations  Constrained 

R227 

Diagonal  Matrix  Operations 

R212 

Vector  Scalar  Operations  Unconstrained 

R065,  R066 

Vector  Scalar  Operations  Constrained 

R065,  R066 

Matrix  Scalar  Operations  Unconstrained 

R073,  R074 

Matrix  Scalar  Operations  Constrained 

R073,  R074 

Diagonal  Matrix  Scalar  Operations 

R212 

Matrix  Vector  Multiply  Unrestricted 

R069 

Matrix  Vector  Multiply  Restricted 

R069 

Vector  Matrix  Multiply  Unrestricted 

N/A 

Vector  Matrix  Multiply  Restricted 

N/A 

Vector  Vector  Transpose  Multiply  Unrestricted 

N/A 

Vector  Vector  Transpose  Multiply  Restricted 

N/A 

Matrix  Matrix  Multiply  Unrestricted 

R077 

Matrix  Matrix  Multiply  Restricted 

R077 

Matrix  Matrix  Transpose  Multiply  Unrestricted 

N/A 

Matrix  Matrix  Transpose  Multiply  Restricted 

N/A 

|  Dot  Product  Operation  Unrestricted 

R063 

j  Dot  Product  Operation  Restricted 

R063 

|  Diagonal  Full  Matrix  Add  Unrestricted 

R212 

j  Diagonal  Full  Matrix  Add  Restricted 

R212 

j  ABA  Trans  Dynam  Sparse  Matrix  Sq  Matrix 

N/A 

j  ABA  Trans  Vector  Sq  Matrix 

N/A 

j  ABA  Trans  Vector  Scalar 

N/A 

j  ABA  Trans ~Col  Matrix  Sq  Matrix 

N/A 

j  Column_Matrix_OperatIons 

N/A 

3. 3. 6. 2. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 2. 3  INPUT/OUTPUT 


None. 
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3. 3. 6. 2. 4  LOCAL  DATA 
None. 

3. 3. 6. 2. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 2. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
package  body  General_Vector_Matrix_Algebra  is 

package  body  Vector_Operations_Uncons trained  is  separate; 
package  body  Vector_Operations_Constrained  is  separate; 
package  body  Matrix_Operations_Unconstrained  is  separate; 
package  body  Matrix_Operations_Constrained  is  separate; 

package  body  Dynamically_Sparse_Matrix_Operations_Unconstrained  is  separate; 

package  body  Dynamically_Sparse_Matrix_Operations_Constrained  is  separate; 

package  body  Symmetric  Half J5torage_Matrix_0perations  is  separate; 

package  body  Symme t r i c_Ful  1_S t o r age_Ma t r i x_0pera t i ons_Uncons t rained  is  separate; 

package  body  Symmetric_Full_Storage_Matrix_Operations_Constrained  is  separate; 

package  body  Diagonal_Matrix_Operations  is  separate; 

package  body  Vector_Scalar_Operations_Unconstrained  is  separate; 

package  body  Vector_Scalar_Operations_Constrained  is  separate; 

package  body  Matrix_Scalar_Operations_Unconstrained  is  separate; 

package  body  Matrix_Scalar_Operations_Cons trained  is  separate; 

package  body  Diagonal_Matrix_Scalar_Operations  is  separate; 

package  body  Matrix_Vector_Multiply_Unrestricted  is  separate; 

function  Matrix_Vector_Multiply_Restricted 
(Matrix  :  Input_Matrices; 

Vector  :  Input_Vectors)  return  Output_Vectors  is  separate; 

package  body  Vector_Vector_Transpose_Multiply_Unrestricted  is  separate; 

function  Vector  Vector_Transpose_Multiply_Restricted 
(Left  :  Left_Vectors  ; 

Right  :  Right_Vectors)  return  Matrices  is  separate; 
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>} 


package  body  Matrix_Matrix  Multiply_Unrestricted  is  separate; 

function  Matrix  Matrix_Multiply_Restricted 
(Left  ;  Lsf t_Matrices ; 

Right  s  Right_Matrices)  return  Output_Matrices  is  separate; 

package  body  Matrix_Matrix_Transpose_Multiply_Unrestricted  is  separate; 

function  Matrix  Matrix_Transpose_Multiply_Restricted 
(Lelt  :  Lef t_Matrices ; 

Right  :  Right_Matrices)  return  Output_Matrices  is  separate; 

package  body  Dot_Product_Operations_Unrestricted  is  separate; 

function  Dot  Product_Operations_Restricted 
TLeft  :  Lef t_Vec tors; 

Right  :  Right_Vectors) 
return  Result_Elements  is  separate; 

package  body  Diagonal_Full_Matrix_Add_Unrestricted  is  separate; 

function  Di agonal_Fu  1  l_Ma t r i x_Add_Res t r i c t ed 
(D_Matrix  7  Diagonal_Matrices; 

FMatrix  :  FullMatrices)  return  FullMatrices  is  separate; 

package  body  Vector_Matrix_Multiply_Unrestricted  is  separate; 

function  Vector_Matrix  Multiply_Restricted 
(Vector  :  Tnput_Vectors; 

Matrix  s  InputMatrices)  return  OutputVectors  is  separate; 
package  body  ABA_Trans_Dynam_Sparse_Matrix_Sq_Matrix  is  separate; 
package  body  ABA_Trans_Vector_Sq_Matrix  is  separate; 
package  body  ABA_Trans_Vector_Scalar  is  separate; 
package  body  Column_Matrix_Operations  is  separate; 
end  General_Vector_Matrix_Algebra; 


3. 3. 6. 2. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 2. 8  LIMITATIONS 


$ 


None. 
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3. 3. 6. 2. 9  LLCSC  DESIGN 

3. 3. 6. 2. 9.1  VECTOR_OPERATIONS_UNCONSTRAINED  PACKAGE  DESIGN  (CATALOG  #P337-0) 

This  package  contains  functions  which  provide  a  set  of  standard  vector 
operations.  The  operations  provided  are  addition,  subtraction,  and  dot  product 
of  like  vectors,  along  with  a  vector  length  operation. 

The  decompositio.  'or  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3  6.2.9. 1.1  REQUIREMENTS  ALLOCATION 

The  following  table  describes  the  allowing  of  requirements  to  this  part: 


1 

Requirements  | 

j  Name 

Allocation  1 

|  Dot  Product 

R063  | 

j  Vector  Length 

R104 

!  "+" 

R061  ! 

1  •*_" 

R062  | 

3. 3. 6. 2. 9. 1.2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 2. 9. 1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  defined  at  the  package  specification 
level: 

Data  types: 


|  Name  |  Type  |  Description 


Vector_Elements 

Vector_Elements 

Squared 

Indices 


floating 
point  type 
floating 
point  type 

discrete 

type 


Type  of  elements  to  be  contained  in  vector 
type  defined  by  this  package 
Resulting  type  from  the  operation 
Vector_Elements  *  Vector_Elements;  used 
for  result  of  a  dot  product  operation 
Used  to  dimension  exported  Vectors  type 


Subprograms: 
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|  Name 

1 

Type 

|  Description 

|  »*" 

1 

function 

|  Used  to  define  the  operation 

1 

1 

|  Vector  Elements  *  Vector  Elements  := 

1 

|  Vector  Elements  Squared 

|  SqRt 

1 

function 

|  Square  root  function  taking  an  object  of  type 

1 

1 

i  Vector  Elements  Squared  and  returning  an  object 

1 

1 

i  of  type  Vector_Elements 

3. 3. 6. 2. 9.1 

.4 

LOCAL  DATA 

Data  types: 

The  following  table  summarizes  the  types  defined  in  this  part's  specification 

|  Name 

|  Range 

|  Description  | 

|  Vectors 

1  1 

|  N/A 

|  Unconstrained,  cne-dimensional 
j  array  of  elements 

3. 3. 6. 2. 9. 1.5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 6. 2. 9. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 
package  body  Vector_Operations_Unconstrained  is 

end  Vec tor_0perat ions_Uncons trained ; 


3. 3. 6. 2. 9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 2. 9. 1.8  LIMITATIONS 


None. 


3. 3. 6. 2. 9. 1.9  LLCSC  DESIGN 


None. 
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3.3.6.2.9.1.10  UNIT  DESIGN 

3.3.6.2.9.1.10.1  "+"  (VECTOR  +  VECTORS  :=  VECTORS)  UNIT  DESIGN  (CATALOG  #P338-0) 

This  function  adds  two  vectors  by  adding  each  of  the  individual  elements  in  the 
input  vector,  returning  the  resultant  vector.  All  three  vectors  are  of  the 
same  type.  If  the  two  input  vectors  do  not  have  the  same  length,  the  exception 
DIMENSI0N_ERR0R  is  raised.  The  ranges  of  the  dimensions  of  the  input  vectors 
do  not  have  to  be  the  same. 


3.3.6.2.9.1.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R061. 


3.3.6.2.9.1.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.1.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Nama 

1  Type 

|  Mode 

|  Description 

1 

|  Left 

|  Vectors 

1  In 

|  One  of  the  vectors 

to  be  added  | 

|  Right 

j  Vectors 

1  In 

|  Second  vector  to  be 

added  j 

3.3.6.2.9.1.10.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

Description  | 

|  Answer 
j  L_Index 
j  R_Index 

|  Vectors 
j  Indices 
j  Indices 

Vector  being  calculated  and  returned 

Index  into  Left  vector 

Index  into  Right  vector 

3.3.6.2.9.1.10.1.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.1.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "+"  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors  is 

— declaration  section- 


Answer  :  Vectors(Lef t' RANGE) ; 
LIndex  :  Indices; 

R  Index  :  Indices; 


—  — begin  function  "+" 


begin 

— make  sure  lengths  of  input  vectors  are  the  same 
if  Left 'LENGTH  -  Right 'LENGTH  then 

LIndex  :■  Left 'FIRST; 

RIndex  Right 'FIRST; 

Process: 

loop 

Answer (L_Index)  Lef t(L_Index)  +  Right (R_Index) ; 

exit  Process  when  L_Index  -  Left' LAST; 

L_Index  :=  Indices' SUCC(L_Index) ; 

R_Index  :=  Indices ' SUCC(R~Index) ; 

end  loop  Process; 


else 

— dimensions  of  vectors  are  incompatible 
raise  Dimens ion_Error; 

end  if; 

return  Answer; 
end  "+"; 


3.3.6.29.1.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 
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The  following  tables  describe  the  elements  defined  in  this  part's  top  level 
component  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  are  defined  in  the 
package  specification  for  Vector_Operations_Unconstrained: 


|  Name  |  Type  |  Description  | 


|  Vector_Elements  |  floating  |  Type  of  elements  to  be  contained  in  vector 

i  point  type  j  type  defined  by  this  package 
|  Indices  j  discrete  j  Used  to  dimension  exported  Vectors  type 

I  I  type  | 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Vector_Operations_Unconstrained: 


|  Name 

Range 

|  Description  | 

|  Vectors 

1 

N/A 

|  Unconstrained,  one-dimensional  | 

j  array  of  elements  j 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 


|  Name  | 

1  Type 

|  Description  | 

|  dimension  error 

1  "  1 
1  1 

|  exception 

l 

1  1 

|  Raised  by  a  routine  when  input  received  has  | 
j  dimensions  incompatible  for  the  type  of  j 

operation  to  be  performed 

3.3.6.2.9.1.10.1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  Vhen/Vhy  Raised  i 

|  Dimension  Error 

1 

|  Raised  if  the  lengths  of  the  input  vectors  are  not  the  | 

|  same  | 
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3.3.6.2.9.1.10.2  (VECTORS  -  VECTORS  :=  VECTORS)  UNIT  DESIGN  (CATALOG  #P339-0) 

This  part  subtracts  one  vector  from  another  by  subtracting  the  individual 
elements  of  each  input  vector,  returning  the  resultant  vector.  The  dimensions 
of  the  two  input  vectors  must  have  the  same  length,  but  are  not  required  to 
have  the  same  range. 


3.3.6.2.9.1.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R062. 


3.3.6.2.9.1.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.1.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

|  Mode 

|  Description  | 

|  Left 

|  Vectors 

1  In 

|  Vector  to  act  as  the  minuend 

I  Right 

j  Vectors 

|  In 

j  Vector  to  act  as  the  subtrahend 

3.3.6.2.9.1.10.2.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

|  Description  | 

|  Answer 

Vectors 

Vector  being  calculated  and  returned 

j  L  Index 

Indices 

Index  into  Left  vector 

j  R  Index 

Indices 

Index  into  Right  vector 

3.3.6.2.9.1.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.1.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  (Left  :  Vectors; 
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Right  :  Vectors)  return  Vectors  is 


— declaration  section- 


Answer  :  Vectors (Left' RANGE); 
L_Index  s  Indices; 

R  Index  :  Indices; 


—  — begin  function 


begin 

— make  sure  lengths  of  the  input  vectors  are  the  same 
if  Left' LENGTH  -  Right 'LENGTH  then 

LIndex  Left 'FIRST; 

RIndex  Right 'FIRST; 

Process! 

loop 

Ansver(L_Index)  :■  Lef t(L_Index)  -  Right (R_Index) ; 

exit  Process  when  L_Index  -  Left 'LAST; 

L_Index  ;■  Indices' SUCC(L_Index) ; 

R~Index  :«  Indices' SUCC(R_Index); 

end  loop  Process; 


else 

— dimensions  of  vectors  are  incompatible 
raise  Dimension_Error; 

end  if; 

return  Answer; 

end 


3.3.6.2.9.1.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  top  level 
component  and  used  by  this  part: 


Data  types: 
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The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  for  Vector_Operations_Unconstrained: 


|  Name 

1  Type 

|  Description  | 

|  Vector  Elements 
! 

|  Indices 

1 

|  floating 
j  point  type 
j  discrete 

1  type 

|  Type  of  elements  to  be  contained  in  vector | 
j  type  defined  by  this  package  j 
|  Used  to  dimension  exported  Vectors  type  1 

1  1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Vector_Operations_Unconstrained: 


|  Name 

Range 

|  Description  | 

|  Vectors 

1 

N/A 

|  Unconstrained,  one-dimensional  j 

[  array  of  elements  j 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 


|  Name 

1  Type 

|  Description  | 

|  dimension  error 

1 

1  1 

|  exception 

|  Raised  by  a  routine  vhen  input  received  has  | 
dimensions  incompatible  for  the  type  of 
|  operation  to  be  performed  j 

3.3.6.2.9.1.10.2.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  When/Why  Raised  | 

|  Dimension  Error 

1 

|  Raised  if  the  lengths  of  the  input  vectors  are  not  the  | 
j  same  j 

3.3.6.2.9.1.10.3  VECT0R_LENGTH  UNIT  DESIGN  (CATALOG  #I'340-0) 

This  function  calculates  the  length  of  a  vector,  returning  the  result.  The 
length  of  a  vector  is  defined  as: 


a  :=*  Sqrt(sum  b(i)**2) 
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3.3.6.2.9.1.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R104. 

3.3.6.2.9.1.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.1.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

|  Mode 

|  Description  | 

|  Input 

|  Vectors  | 

1  In 

|  Vector  for  which  a  length  is  desired  | 

3.3.6.2.9.1.10.3.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

Description  | 

|  Temp 

|  Vector_Elements_Squared 

Used  for  intermediate  calculations  | 

3.3.6.2.9.1.10.3.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.1.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Vector_Length  (Input  :  Vectors)  return  Vector_Elements  is 

— declaration  section- 

Temp  :  Vector_Elements_Squared; 

—  — begin  function  Vector_Length 
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begin 

Temp  :=  0.0; 

Process: 

for  Index  in  Input 'RANGE  loop 
Temp  :=  Temp  + 

Input(Index)  *  Input(Index) ; 
end  loop  Process; 

return  SqRt(Temp); 

end  Vector_Length; 


3.3.6.2.9.1.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  for  VectorOperationsUnconstrained: 


|  Name  |  Type  |  Description 


Vector_Elements 

Vector_Elements 

Squared 

Indices 


floating 
point  type 
floating 
point  type 

discrete 

type 


Type  of  elements  to  be  contained  in  vector 
type  defined  by  this  package 
Resulting  type  from  the  operation 
Vector_Elements  *  Vector_Elements;  used 
for  result  of  a  dot  product  operation 
Used  to  dimension  exported  Vectors  type 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Vector_Operations_Unconstrained: 


|  Name 

Range 

|  Description  | 

|  Vectors 

1 

N/A 

|  Unconstrained,  one-dimensional  | 

j  array  of  elements  i 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 
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|  Name 

1  Type 

Mode 

|  Description 

1 

|  Left 

1 

|  Vectors 

1 

In 

|  First  vector 
|  operation 

to  be  used  in  the  dot  product  | 

1 

|  Right 

1 

|  Vectors 

1 

In 

|  Second  vector 
j  operation 

to  be  used  in  the  dot  product  | 

1 

3.3.6.2.9.1.10.4.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


1  Name 

1  Type 

Description  | 

|  Answer 
|  L  Index 
j  R_Index 

|  Vector_Elements  Squared 
j  Indices 
j  Indices 

Result  of  the  dot  product  operation  | 
Index  into  Left  vector  j 
Index  into  Right  vector  j 

3. 3. 6. 2. 9. 

1.10.4.5  PROCESS  CONTROL 

Not  applicable. 

3.3.6.2.9.1.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Dot_Product  (Left  :  Vectors; 

Right  :  Vectors)  return  Vector_Elements  Squared  is 


— declaration  section- 


Answer  :  Vector_Elements_Squared; 
L_Index  :  Indices; 

R  Index  :  Indices; 


—  — begin  function  Dot_Product 


begin 


— make  sure  lengths  of  the  input  vectors  are  the  same 
if  Left 'LENGTH  -  Right 'LENGTH  then 


Ansver  :«  0.0; 

L_Index  :=  Left 'FIRST; 
R  Index  Right 'FIRST; 
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Process: 

loop 

Answer  :=  Answer  +  Lef t(L_Index)  *  Right (R_Index) ; 

exit  Process  when  L_Index  =  Left 'LAST; 

L_Index  :=<  Indices' SUCC(L_Index) ; 

R_Index  :=  Indices' SUCC(R_Index) ; 

end  loop  Process; 

else 

— dimensions  of  vectors  are  incompatible 
raise  Dimension_Error; 

end  if; 

return  Answer; 
end  Dot  Product; 


3.3.6.2.9.1.10.4.7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OP  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  top  level 
component  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  for  Vector_Operations_Unconstrained: 


|  Name  |  Type  |  Description 


Vector_Elements 

Vector_Elements 

Squared 


floating 
point  type 
floating 
point  type 


Indices 


discrete 

type 


Type  of  elements  to  be  contained  in  vector 
type  defined  by  this  package 
Resulting  type  from  the  operation 
Vector_Elements  *  Vector_Elements;  used 
for  result  of  a  dot  product  operation 
Used  to  dimension  exported  Vectors  type 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Vector_Operations_Unconstrained: 
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|  Name 

Range 

|  Description  | 

|  Vectors 

1 

N/A 

|  Unconstrained,  one-dimensional  | 

j  array  of  elements 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector  Matrix_Algebra: 


|  Name  | 

1  Type 

|  Description  | 

|  dimension  error  | 
1  "  1 
1  ! 

exception 

i  1 

|  Raised  by  a  routine  when  input  received  has  | 

|  dimensions  incompatible  for  the  type  of  j 

|  operation  to  be  performed 

Subprograms: 

The  following  table  summarizes  the  generic  subroutines  available  to  tv  i  part 
and  defined  at  the  package  specification  level  for  Vector_Operations: 


|  Name 

1  Type 

|  Description  | 

| 

1 

1 

|  function 

1 

1 

|  Used  to  define  the  operation  | 
j  Vector_Elements  *  Vector_Elements  j 
j  Vector _Elements_Squared 

3.3.6.2.9.1.10.4.8 

LIMITATIONS 

The  following  table 

describes  the  exceptions 

raised  by  this  part: 

|  Name  | 

Vhen/Vhy  Raised 

1 

|  Dimension  Error  | 

1  '  1 

Raised  if  the  lengths  of 
the  same 

the  two  input  vectors  are  not  | 

1 

3. 3. 6. 2. 9. 2  MATRIX_OPERATIONS_UNCONSTRAINED  PACKAGE  DESIGN  (CATALOG  #P347-0) 

This  package  contains  subroutines  which  provide  a  set  of  standard  operations  on 
matrices  of  like  types. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 
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3. 3. 6. 2. 9. 2.1  REQUIREMENTS  ALLOCATION 

This  following  illustrates  the  allocation  of  requirements  to  the  units  in  this 
package . 


Requirements 


Name 


Allocation 


"+"  (matrices  +  matrices) 
(matrices  -  matrices) 
"+"  (matrices  +  elements) 
(matrices  -  elements) 
Set_to_Identity_Matrix 
Set_to_Zero_Matrix 
«*'• 


R079 

R080 

R075 

R076 

R155 

R156 

R077 


3. 3. 6. 2. 9. 2. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 2. 9. 2. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  folloving  generic  parameters  were  previously  defined  at  the  package 
specification  level: 

Data  types: 


|  Name  |  Type  |  Description 


Elements 
Col_Indices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Used  to  define  type  of  elements  in  matrix 
defined  by  this  package 
Used  to  define  second  dimension  of  exported 
matrix  type 

Used  to  define  first  dimension  of  exported 
matrix  type 


3. 3. 6. 2. 9. 2. 4  LOCAL  DATA 


Data  types: 

The  following  data  type  was  previously  defined  at  the  package  specification 
level: 
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|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  i 

j  array  of  Elements  j 

3. 3. 6. 2. 9. 2. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 4. 2. 9. 2. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General  Vector_Matrix_Algebra) 
package  body  MatrIx_Operations_Unconstrained  is 

end  Matrix_Operations_Unconstrained; 


3. 3. 6. 2. 9. 2. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 2. 9. 2. 8  LIMITATIONS 


None. 


3. 3. 6. 2. 9. 2. 9  LLCSC  DESIGN 
None. 


3.3.6.2.9.2.10  UNIT  DESIGN 

3.3.6.2.9.2.10.1  "+"  (MATRICES  +  MATRICES  MATRICES)  UNIT  DESIGN  (CATALOG 

#P348-0) 

This  function  adds  two  matrices  by  adding  the  individual  elements  of  each  input 
matrix,  returning  the  resultant  matrix.  The  lengths  of  the  first  dimensions  of 
the  input  matrices  must  be  equal,  as  must  be  the  lengths  of  the  second 
dimensions.  None  of  the  ranges  for  the  dimensions  have  to  be  the  same. 


3.3.6.2.9.2.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R079. 
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3.3.6.2.9.2.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.2.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Left 

|  Matrices 

1  In 

|  First  matrix  to  be  added  | 

I  Right 

j  Matrices 

1  In 

j  Second  matrix  to  be  added  j 

3.3.6.2.9.2.10.1.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

Description  | 

Answer 

|  Matrices 

Result  of  adding  the  two  input  matrices 

L  Col 

|  Col  Indices 

Left  column  index 

L  Row 

j  Row  Indices 

Left  row  index 

R  Col 

j  Col  Indices 

Right  column  index 

R_Row 

j  Row_Indices 

Right  row  index 

3.3.6.2.9.2.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.2.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 

— declaration  section- 


Answer  :  Matrices(Lef t'RANGE(l) ,  Lef t'RANGE(2)) ; 
L_Col  :  Col_Indices; 

L_Row  :  Row_Indices; 

R_Col  :  Col_Indices; 

R  Row  :  Row  Indices; 
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—  — begin  function  "+" 


begin 

— make  sure  the  dimensions  of  the  matrices  are  compatible 
if  Left'LENGTH(l)  =  Right' LENGTH(l)  and 
Left'LENGTH(2)  =  Right'LENGTH(2)  then 

LRow  :»  Left'FIRST(l); 

RRow  :  =  Right 'FIRST(l); 

Row  Loop: 
loop 

LCol  Left'FIRST(2); 

RCol  Right 'FIRST(2); 

Col  Loop: 
loop 

Answer(L_Row,  L_Col)  :»  Left(L_Row,  L_Col)  + 

Right(R_Row,  R_Col); 

exit  ColLoop  when  L  Col  *  Left'LAST(2); 
LCol  : »_Col_IndicesTSUCC(L_Col) ; 

RCol  ColIndices'SUCC(RCol); 

end  loop  Col_Loop; 

exit  RowLoop  when  LRow  -  Left'LAST(l) ; 

L_Rov  :»  Row_Indices7SUCC(L_Row)5 
R_Row  : «  Row_Indices' SUCC(R_Row) ; 

end  loop  Row_Loop; 


else 

— input  matrices  have  incompatible  dimensions 
raise  Dimension_Error; 

end  if; 

return  Answer; 
end  "+"; 


3.3.6.2.9.2.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 
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Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  Matrix_Operations_Unconstrained: 


|  Name  |  Type  |  Description  | 


1 

Elements 

1 

floating 

1 

Used  to  define  type  of  elements  in  matrix 

1 

1 

1 

point  type 

1 

defined  by  this  package 

1 

1 

Col  Indices 

1 

discrete 

1 

Used  to  define  second  dimension  of  exported 

1 

1 

type 

1 

matrix  type 

1 

1 

Row  Indices 

discrete 

1 

Used  to  define  first  dimension  of  exported 

1 

1 

type 

1 

matrix  type 

1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Matrix_Operations_Unconstrained: 


|  Name 

Range 

|  Description  | 

|  Matrices 
! 

N/A 

|  Unconstrained,  two-dimensional  | 

|  array  of  Elements 

Exceptions: 

The  following  table  sunflnarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name  | 

Description 

1 

|  dimension  error  | 

1  “  1 

1  1 

Raised  by  a  routine  when  input  received  has 
dimensions  incompatible  for  the  type  of 
operation  to  be  performed  j 

3.3.6.2.9.2.10.1.8 

LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this 

part: 

|  Name  | 

Vhen/Vhy  Raised 

1 

|  Dimension  Error  | 

I  '  1 

Raised  if  the  respective  lengths  of  the  first  and  second  | 
dimensions  of  the  input  matrices  are  not  equal  j 

3.3.6.2.9.2.10.2  (MATRICES  -  MATRICES  :=  MATRICES)  UNIT  DESIGN  (CATALOG 

#P349-0) 

This  function  subtracts  one  matrix  from  another  by  subtracting  the  individual 
elements  of  the  input  matrices,  returning  the  resultant  matrix.  The  lengths  of 
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* 

the  first  dimensions  of  the  input  matrices  must  be  equal,  as  must  be  the 
lengths  of  the  second  dimensions.  None  of  the  ranges  for  the  dimensions  have 
to  be  the  same. 


3.3.6.2.9.2.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R076. 


3.3.6.2.9.2.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.2.10.2.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

|  Mode 

|  Description 

1 

|  Left 

|  Matrices  | 

1  In 

|  Matrix  to  act  as  the 

minuend 

|  Right 

|  Matrices  j 

1  In 

j  Matrix  to  be  used  as 

the  subtrahend 

3.3.6.2.9.2.10.2.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


Name 

1  Type 

1 

Description 

Answer 

|  Matrices 

1 

Result  of  adding  the 

L  Col 

j  Col  Indices 

1 

Left  column  index 

L  Row 

j  Row  Indices 

1 

Left  row  index 

R  Col 

j  Col  Indices 

I 

Right  column  index 

RRow 

j  Row_Indices 

1 

Right  row  index 

3.3.6.2.9.2.10.2.5  rROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.2.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 
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— declaration  section- 


Answer  :  Matrices (Lef t'RANGE(l) ,  Left'RANGE(2)) ; 

L_Col  s  Col_Indices; 

LRow  :  Row_Indices; 

R_Col  :  Col_Indices; 

R  Row  :  Row-Indices; 


—  — begin  function 


begin 

— make  sure  matrix  dimensions  are  compatible 
if  Lef t'LENGTH(l)  =.  Right' LENGTH(l)  and 
Lef t'LENGTH(2)  »  Right'LENGTH(2)  then 

LRow  :  =  Left'FIRST(l); 

RRow  Right 'FIRST(l); 

Row  Loop: 
loop 

LCol  :-  lef t'FIRST(2) ; 

RCol  Right 'FIRST(2); 

Col  Loop: 
loop 

answer (L_Row,  L_Col)  :-  Le£t(L  Row,  L  Col)  - 

Right (K_Row,  R_Col); 

exit  Col_Loop  when  L  Col  -  Left'LAST(2); 

L  Col  :-  Col_Indices~SUCC(L_Col) ; 

R  Col  :«  Col_Indices'SUCC(R_Col); 

end  loop  Col_Loop; 

exit  Row_Loop  when  L_Row  »  Lef t'LAST(l) } 

LRow  :-  Row_Indices7SUCC(L_Row); 

R_Row  :-  Row~Ind ices' SUCC(R~Row) ; 

end  loop  Row_Loop; 


else 

— input  matrices  have  incompatible  dimensions 
raise  Dimens ion_Error; 

end  if; 

return  Answer; 


end 
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3.3.6.2.9.2.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  Matrix_Operations_Unconstrained: 


1 

Name 

i 

Type 

1 

Description 

1 

1 

Elements 

1 

floating 

1 

Used  to  define  type  of  elements  in  matrix 

1 

1 

1 

point  type 

1 

defined  by  this  package 

1 

Col  Indices 

1 

discrete 

1 

Used  to  define  second  dimension  of  exported 

1 

1 

type 

matrix  type 

1 

1 

Row  Indices 

discrete 

1 

Used  to  define  first  dimension  of  exported 

1 

1 

1 

type 

1 

matrix  type 

1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Matrix_Operations_Unconstrained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  j 

j  array  of  Elements  1 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  p^rt  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name  | 

Description  i 

|  dimension  error  | 

i  "  ! 

1  1 

Raised  by  a  routine  when  input  received  has 
dimensions  incompatible  for  the  type  of 
operation  to  be  performed  j 

3.3.6.2.9.2.10.2.8 

LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  | 

When/Why  Raised  | 

|  Dimension  Error  | 

1  "  1 

Raised  if  the  respective  lengths  of  the  first  and  second  | 
dimensions  of  the  input  matrices  are  not  the  same  j 
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3. 3. 6. 2. 9.2.10.3  "+"  (MATRICES  +  ELEMENTS  :  =  MATRICES)  UNIT  DESIGN  (CATALOG 

#P350-0) 

This  function  calculates  a  scaled  matrix  by  adding  a  scale  factor  to  each 
element  of  an  input  matrix,  returning  the  resultant  matrix. 


3.3.6.2.9.2.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R075. 


3.3.6.2.9.2.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.2.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode  | 

Description  | 

|  Matrix 

Matrices 

1  In  | 

Matrix  to  be  scaled 

j  Addend  | 

Elements 

1  In  | 

Scale  factor 

3. 3. 6. 2. 9. 

,2.10.3.4 

LOCAL  DATA 

Data  objects: 

The  following  table  describes  the  data  objects  maintai^d  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Answer 

|  Matrices 

|  Scaled  matrix  | 

3.3.6.2.9.2.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.2.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "+"  (Matrix  :  Matrices; 

Addend  :  Elements)  return  Matrices  is 
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— declaration  section- 


Answer  :  Matrices(Matrix'RANGE(l) ,  Matrix'RANGE(2)) ; 


—  — begin  function  "+" 


begin 

Row  Loop: 

lor  Row  in  Matrix'RANGE(l)  loop 
Col  Loop: 

?or  Col  in  Matrix' RANGE(2)  loop 

Ansver(Rov,  Col)  :-  Matrix(Row,  Col)  +  Addend; 
end  loop  Col_Loop; 
end  loop  Row_Loop; 

return  Answer; 

end  "+"; 


3.3.6.2.9.2.10.3.7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OP  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  Matrix_Operations_Unconstrained: 


|  Name  |  Type  |  Description 


|  Elements  |  floating 

Used  to  define  type  of  elements  in  matrix 

|  j  point  type 

defined  by  this  package 

j  Col  Indices  j  discrete 

Used  to  define  second  dimension  of  exported 

1  type 

matrix  type 

j  Row  Indices  |  discrete 

Used  to  define  first  dimension  of  exported 

1  1  type 

matrix  type 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Matrix_Operations_Unconstrained: 


|  Name 

|  Range 

|  Description  | 

|  Matrices 

|  N/A 

Unconstrained,  two-dimensional 

1 

1 

array  of  Elements 
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3.3.6.2.9.2.10.3.8  LIMITATIONS 


None. 


3.3.6.2.9.2.10.4  (MATRICES  -  ELEMENTS  :=  MATRICES)  UNIT  DESIGN  (CATALOG 
#P351-0) 

This  function  calculates  a  scaled  matrix  by  subtracting  a  scale  factor  from 
each  element  of  an  input  matrix,  returning  the  resultant  matrix. 


3.3.6.2.9.2.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R076. 


3.3.6.2.9.2.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.2.10.4.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

|  Mode 

|  Description  | 

|  Matrix 

|  Matrices  | 

1  In 

|  Matrix  to  be  scaled  | 

j  Subtrahend 

|  Elements  | 

1  In 

|  Scale  factor 

3.3.6.2.9.2.10.4.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  i 

1  Type 

|  Description  | 

|  Answer 

|  Matrices 

|  Scaled  matrix  | 

3.3.6.2.9.2.10.4.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.2.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Matrix  :  Matrices; 

Subtrahend  :  Elements)  return  Matrices  is 


— declaration  section- 


Answer  :  Matrices(Matrix'RANGE(l) ,  Matrix' RANGE(2)); 


- begin  function 


begin 

Row  Loop: 

lor  Row  in  Matrix' RANGE(l)  loop 
Col  Loop: 

?or  Col  in  Matrix' RANGE( 2)  loop 

Answer (Row,  Col)  :«  Matrix(Row,  Col)  -  Subtrahend; 
end  loop  Col_Loop; 
end  loop  RowLoop; 

return  Answer; 

end 


3.3.6.2.9.2.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  Matrix_Operations_Unconstrained: 


|  Name  |  Type  |  Description 


Elements 
Col_Indices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Used  to  define  type  of  elements  in  matrix 
defined  by  this  package 
Used  to  define  second  dimension  of  exported 
matrix  type 

Used  to  define  first  dimension  of  exported 
matrix  type 
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The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Matrix_Operations_Unconstrained: 


|  Name 

Range 

j  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  | 

j  array  of  Elements  j 

3.3.6.2.9.2.10.4.8  LIMITATIONS 


None. 


3.3.6.2.9.2.10.5  SET_TO_IDENTITY_MATRIX  UNIT  DESIGN  (CATALOG  #P352-0) 

This  procedure  turns  an  input  matrix  into  an  identity  matrix.  An  identity 
matrix  is  one  in  which  the  diagonal  elements  equal  1.0  and  all  other  elements 
equal  0.0.  The  input  matrix  must  be  a  square  matrix,  but  the  ranges  of  the 
ndividual  dimensions  do  not  have  to  be  the  same. 


3.3.6.2.9.2.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R155. 


3.3.6.2.9.2.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.2.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

|  Matrix 

Matrices 

Out 

|  Matrix  to  be  made  into  an  identity  matrix  | 

3.3.6.2.9.2.10.5.4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  maintained  local  to  this  part. 
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|  Name 

Type 

Description  | 

|  Col  Marker 
|  Row 

Col  Indices 
Row  Indices 

Index  into  second  dimension  of  matrix  j 

Index  into  first  dimension  of  matrix  i 

3.3.6.2.9.2.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.2.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices)  is 


— declaration  section 


ColMarker  :  Collndices; 
Rov  :  Row  Indices; 


- begin  function  SetToIdentityMatrix 


begin 

— make  sure  input  matrix  is  a  square  matrix 
if  Matrix' LENGTH(l)  -  Matrix' LENGTH( 2)  then 

Matrix  :=  (others  =>  (others  »>  0.0)); 

Row  :-  Matrix'FIRST(l) ; 

Col_Marker  :*  Matrix' FIRST(2); 

Row  Loop: 
loop 

— set  diagonal  element  equal  to  1 
Matrix(Row,  Col_Marker)  :=  1.0; 

exit  Row_Loop  when  Row  -  Matrix' LAST(l); 
Row  :»  Row_Indices'SUCC(Row); 

Col_Marker  Col_Indices' SUCC(Col_Marker) ; 

end  loop  Row  Loop; 


else 

— do  not  have  a  square  matrix 
raise  Dimension  Error; 


end  if; 
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end  Set  To  Identity  Matrix; 


3.3.6.2.9.2.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  Matrix_Operations_Unconstrained: 


!  Name 

1 

Type 

1 

Description 

1 

|  Elements 

1 

floating 

1 

Used  to  define  type  of  elements  in  matrix 

1 

point  type 

1 

defined  by  this  package 

j  Col  Indices 

1 

discrete 

1 

Used  to  define  second  dimension  of  exported 

1 

type 

matrix  type 

j  Row  Indices 

1 

discrete 

1 

Used  to  define  first  dimension  of  exported 

1 

type 

1 

matrix  type 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Matrix_Operations_Unconstrained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional 
j  array  of  Elements  j 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 


|  Name  |  Description 


|  dimension_error  |  Raised  by  a  routine  when  input  received  has  | 
j  j  dimensions  incompatible  for  the  type  of  j 
j  j  operation  to  be  performed  j 


3.3.6.2.9.2.10.5.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 
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|  Name 

|  Description  | 

|  Dimension  Error 

|  Raised  if  the  input  matrix  is  not  a  square  matrix  | 

3.3.6.2.9.2.10.6  SET  TO  ZERO  MATRIX  UNIT  DESIGN  (CATALOG  #P353-0) 
This  procedure  zeros  out  all  elements  of  an  input  matrix. 

3.3.6.2.9.2.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R1S6. 

3.3.6.2.9.2.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.2.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS! 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Matrix 

|  Matrices 

|  Out 

|  Matrix  to  be  zeroed  out  | 

3.3.6.2.9.2.10.6.4  LOCAL  DATA 
None. 

3.3.6.2.9.2.10.6.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.2.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices)  is 
begin 

Matrix  (others  *>  (others  *>  0.0)); 


end  Set  To  Zero  Matrix; 
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3.3.6.2.9.2.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  Matrix_Operations_Uncons trained: 


1 

Name 

1 

Type 

1 

Description 

1 

1 

Elements 

1 

floating 

1 

Used  to  define  type  of  elements  in  matrix 

1 

1 

1 

point  type 

defined  by  this  package 

1 

i 

Col  Indices 

1 

discrete 

1 

Used  to  define  second  dimension  of  exported 

1 

1 

type 

1 

matrix  type 

1 

Row  Indices 

1 

discrete 

1 

Used  to  define  first  dimension  of  exported 

1 

1 

1 

type 

1 

matrix  type 

1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Katrix_Operations_Unconstrained: 


|  Name  |  Range  |  Description  | 

|  Matr.ces  |  N/A  |  Unconstrained,  two-dimensional  | 

j  j  j  array  of  Elements  j 


3.3.6.2.9.2.10.6.8  LIMITATIONS 


None. 


3.3.6.2,9.2.10.7  (MATRICES  *  MATRICES  ->  MATRICES)  UNIT  DESIGN  (CATALOG 

#P354-0) 

This  function  multiplies  an  m  x  n  matrix  by  an  n  x  p  matrix,  returning  and  m  x 
p  matrix.  The  type  of  elements  in  each  of  the  three  matrices  is  the  same. 

The  values  in  the  result  matrix  are  defined  as: 

a(m,p)  :-  b(m,n)  *  c(n,p) 


3.3.6.2.9.2.10.7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R07?. 
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3.3.6.2.9.2.10.7.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.2.10.7.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode  | 

Description 

1 

|  Left 

|  Matrices 

1  In  | 

m  x  n  matrix  to  act 

as  multiplicand  | 

|  Right 

j  Matrices 

1  In  | 

n  x  p  matrix  to  act 

as  multiplier  j 

3. 3. 6. 2. 

9.2.10.7.4 

LOCAL  DATA 

Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


Name 

Type 

1 

Value 

Answer 

Matrices 

T 

N/A 

M 

Row_Indices 

i 

N/A 

N  Left 

Col_Indices 

1 

i 

N/A 

N  Right 

Row_Indices 

i 

N/A 

P 

Col_Indices 

i 

i 

N/A 

Description 


Result  of  multiplying  tvo  input  matrices 
Index  into  rovs  of  left  and  answer 
matrices 

Index  into  columns  of  left  matrix 
Index  into  rows  of  right  matrix 
Index  into  colums  of  left  and  answer 
matrices 


3.3.6.2.9.2.10.7.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.2.10.7.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices(Lef t'RANGE(l),  Right 'RANGE(2)>; 
M  :  Row_Indices; 

N  Left  :  Col  Indices; 
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N_Right  :  Rcv_Indices; 
P  :  Ct  1  Indices; 


—  — begin  function 


begin 

— make  sure  dimensions  are  compatible 
if  Lef t'LENGTH(2)  =.  Right 'LENGTH(l)  then 

M  :=  Lef t'FIRST(l) ; 

MLoops 

loop 

P  Right'PIRST(2); 

P_Loop: 

loop 

Answer(M,P)  0.0; 

NLeft  Lef t'FIRST(2) ; 

NRight  J-  Right 'FIRST(l); 

N_Loop: 

loop 

Answer(M,P)  J«  Answer(M,P)  + 

Lef t(Mf N_L,ef t)  *  Right (N_Right,P) ; 

exit  N_Loop  when  N  Left  »  Lef t'LAST(2); 

NLeft  Col_IndTces'SUCC(N_Left); 

NRight  s-  RowIndices'SUCC(NRight); 

end  loop  N_Loop; 

exit  P_Loop  when  P  -  Right'LAST(2); 

P  Col_Indices'SUCC(P); 

end  loop  P_Loop; 

exit  M_Loop  when  M  ■  Lef t' LAST(l) ; 

M  :»  Row^ndices'SUCCCM); 

end  loop  M_Loop; 


else 

— dimensions  are  incompatible 
raise  Dimension_Error; 

end  if; 

return  Answer; 


end 
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3.3.6.2.9.2.10.7.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  for  Matrix_Operations_Unconstrained: 


1 

Name 

1 

Type 

1 

Description 

1 

1 

Elements 

1 

floating 

1 

Used  to  define  type  of  elements  in  matrix 

1 

1 

1 

point  type 

1 

defined  by  this  package 

I 

1 

Col  Indices 

discrete 

1 

Used  to  define  second  dimension  of  exported 

1 

1 

type 

1 

matrix  type 

1 

Row  Indices 

i 

discrete 

1 

Used  to  define  first  dimension  of  exported 

1 

1 

type 

1 

matrix  type 

1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Matrix_Operations_Unconstrained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  ; 

j  array  of  Elements 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 


|  Name 

|  Description 

|  dimension  error 

1 

1 

|  Raised  by  a  routine  when  input  received  has 
j  dimensions  incompatible  for  the  type  of 
operation  to  be  performed 

Subprograms : 

The  following  table  summarizes  the  generic  subroutines  available  to  this  part 
and  defined  at  the  package  specification  level  of  Matrix_Operations_- 
Unconstrained: 
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|  Name  |  Type 

|  Description  | 

|  |  function 

1  1 

|  Operator  to  define  the  operation  | 

|  Elements  *  Elements  =>  Elements  i 

3.3.6.2.9.2.10.7.8 

LIMITATIONS 

The  following  table 

describes  the  exceptions  raised  by  this  part: 

|  Name  | 

When/Why  Raised  | 

|  Dimension  Error  | 

1  ‘  1 

Raised  if  the  inner  dimensions  of  the  input  matrices  do  | 
not  have  the  same  length  j 

3. 3. 6. 2. 9. 3  DYNAMICALLY  SPARSE  MATRIX  OPERATIONS  UNCONSTRAINED  PACKAGE  DESIGN 
(CATALOG  #P362-5) 

This  package  defines  a  dynamically  sparse  matrix  and  operations  on  it.  All 
elements  of  the  matrix  are  stored,  but  most  of  the  elements  are  expected  to  be 
0.  Which  elements  are  zero  does  not  have  to  remain  the  same.  See 
decomposition  section  for  the  operations  provided. 

The  decomposition  for  this  part  is  the  same  as  that  shovn  in  the  Top-Level 
Design  Document. 


3. 3. 6. 2. 9. 3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 


3. 3. 6. 2. 9. 3. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 2. 9. 3. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS; 

The  following  generic  parameters  were  previously  described  at  the  package 
specification  level: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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3. 3. 6. 2. 9. 3. 4  LOCAL  DATA 
Data  types: 

The  following  data  types  were  previously  defined  at  the  package  specification 
level: 


|  Name  | 

Range  | 

Description  | 

|  Matrices  | 

1  1 

N/A  | 

1 

Unconstrained,  two-dimensional  ( 

array  of  Elements  [ 

3. 3. 6. 2. 9. 3. 5 

PROCESS 

CONTROL 

Not  applicable. 

3. 3. 6. 2. 9. 3. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Vector_Matrix_Algebra) 

package  body  Dynamically_Sparse_Matrix_Operations_Unconstrained  is 
end  Dynami cally_Sparse_Ma t r ix_0pera t i ons_Uncons t rained ; 

3. 3. 6. 2. 9. 3. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 2. 9. 3.8  LIMITATIONS 
None. 

3. 3. 6. 2. 9. 3. 9  LLCSC  DESIGN 


None. 
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3.3.6.2.9.3.10  UNIT  DESIGN 

3.3.6.2.9.3.10.1  SET_TO_IDENTITY_MATRIX  UNIT  DESIGN  (CATALOG  #P363-0) 

This  procedure  sets  a  square  input  matrix  to  an  identity  matrix.  An  identity 
matrix  is  one  where  the  diagonal  elements  all  equal  1.0,  with  the  remaining 
elements  equaling  0.0. 


3.3.6.2.9.3.10.1.1  REQUIREMENTS  ALLOCATION 


See  main  header. 


3.3.6.2.9.3.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.3.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

|  Matrix 

Matrices 

In 

|  Matrix  being  made  into  an  identity  matrix  | 

3.3.6.2.9.3.10.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Description 

1 

|  ColMarker 
|  Row 

Col_Indices 

Row~Indices 

Index  into  second  dimension  of 
Index  into  first  dimension  of 

input  matrix  | 

input  matrix  j 

3.3.6.2.9.3.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.3.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices)  is 


CAMP  Software  Detailed  Design  Document 


Page  742 


— declaration  section 


Col_Marker  s  Col_Indices; 
Row  :  Row  Indices; 


—  — begin  procedure  Set_to_Identity_Matrix 


begin 

— make  sure  input  matrix  is  a  square  matrix 
if  Matrix' LENGTH(l)  -  Matrix' LENGTH(2)  then 

Matrix  :=  (others  »>  (others  ■>  0.0)); 

Row  :=  Matrix' FIRST(l); 

ColMarker  :=  Matrix'FIRST(2); 

Row  Loop: 
loop 

— set  diagonal  element  equal  to  1.0 
Matrix(Rov,  Col_Marker)  :«  1.0; 

exit  RowLoop  when  Row  -  Matrix'LAST(l); 

Row  :-  Row_Indices'SUCC(Row); 

Col_Marker  : -  Collndices ' SUCC(Col_Marker ) ; 

end  loop  Row_Loop; 


else 

raise  Dimension_Error; 
end  if; 

end  Set_to_Identity_Matrix; 


3.3.6.2.9.3.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynamically_Sparse_Matrix_- 
Operat ions_Uncons  trained : 
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|  Name  |  Type  |  Description 


Elements 
Col_Indices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  exported  matrix  type 
Used  to  dimension  exported  matrix  type 
Used  to  dimension  exported  matrix  type 


The  following  types  are  defined  in  the  package  specification  for  Dynamically_- 
Sparse_Matrix_Operations_Uncons  trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  > 

j  array  of  Elements  j 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 


|  Name  |  Description 


|  limension_error  |  Raised  by  a  routine  when  input  received  has  | 
j  j  dimensions  incompatible  for  the  type  of  j 
j  j  operation  to  be  performed  \ 


3.3.6.2.9.3.10.1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  |  When/ Why  Raised  | 

|  Dimension_Error  |  Raised  if  the  input  matrix  is  not  a  square  matrix  | 


3.3.6.2.9.3.10.2  SET_T0_ZER0_MATRIX  UNIT  DESIGN  (CATALOG  #P364-0) 
This  procedure  sets  all  elements  of  an  input  matrix  to  zero. 


3.3.6.2.9.3.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 
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3.3.6.2.9.3.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.3.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

|  Matrix 

Matrices 

In 

|  Matrix  to  be  zeroed  out  | 

3.3.6.2.9.3.10.2.4  LOCAL  DATA 


None. 


3.3.6.2.9.3.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.3.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices)  is 
begin 

Matrix  :=  (others  *>  (others  =*>  0.0)); 
end  Set  to  Zero  Matrix; 


3.3.6.2.9.3.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynamically_Sparse_Matrix_- 
Opera t ions_Uncons  t  rained : 
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|  Name  |  Type  |  Description 


Elements 
Collndices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


uata  type  or  elements 


- r  ~  • 


Used  to  dimension  exported  matrix  type 
Used  to  dimension  exported  matrix  type 


The  following  types  are  defined  in  the  package  specification  for  Dynamically_- 
Sparse_Matrix_Operations_Uncons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  [ 

|  array  of  Elements  j 

3.3.6.2.9.3.10.2.8  LIMITATIONS 
None. 

3.3.6.2.9.3.10.3  ADDTOIDENTITY  UNIT  DESIGN  (CATALOG  #P365-0) 

This  function  takes  a  square  input  matrix  and  adds  it  to  an  identity  matrix  by 
adding  1.0  to  all  diagonal  elements  of  the  input  matrix. 

3.3.6.2.9.3.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 

3.3.6.2.9.3.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.3.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Input 

|  Matrices 

1  In 

|  Matrix  to  which  is  added  an  identity  matrix  | 
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3.3.6.2.9.3.10.3.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

|  Value 

|  Description  | 

|  Answer 

Matrices 

|  N/A 

|  Result  of  adding  an  identity  matrix  | 

1 

j  to  the  input  matrix  [ 

j  Col  Marker 

Col  Indices 

j  N/A 

j  Column  index 

|  Row 

Row  Indices 

j  N/A 

j  Row  index  j 

3.3.6.2.9.3.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.3.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Add_to_Identity  (Input  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices(Input'RANGE(l),Input'RANGE(2)); 
Col_Marker  :  Col_Indices; 

Row  :  Row  Indices; 


—  — begin  procedure  Add_to_Identi  ty 


begin 

— make  sure  input  is  a  square  matrix 
if  Input 'LENGTH(l)  «  Input'LENGTH(2)  then 

Answer  Input; 

— add  "identity"  values  to  diagonal  elements 
Row  :=  Input' FIRST(l); 

Col_Marker  :=  Input ' FIRST(2) ; 

Row  Loop: 
loop 

if  Answer(Rov,  Col_Marker)  /-  0.0  then 

Answer(Row,  Col~Marker)  :*  Answer(Row,  Col_Marker)  +  1.0; 
else 

Answer(Row,  Col_Marker)  1.0; 
end  if; 
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exit  Rov_Loop  when  Row  =  Input' LAST(l) ; 

Row  :=  Row_Indices' SUCC(Row) ; 

Col_Marker  :=  Col~Indices' SUCC(Col_Marker) ; 

end  loop  Row  Loop; 


else 

raise  Dimension_Error; 
end  if; 

return  Answer; 
end  Add_to_Identity; 


3.3.6.2.9.3.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynamically_Sparse_Matrix_- 
Oper a  t i ons_Uncons  t  ra i ned : 


|  Name  |  Type  |  Description 


Elements 
Col_Indices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  exported  matrix  type 
Used  to  dimension  exported  matrix  type 
Used  to  dimension  exported  matrix  type 


The  following  types  are  defined  in  the  package  specification  for  Dynamically_- 
Sparse_Ma  t  r i x_0pera  t i ons_Uncons  t  rained : 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  | 

j  array  of  Elements 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 
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|  Name  | 

Description  | 

|  dimension  error  | 

1  1 

1  1 

Raised  by  a  routine  when  input  received  has  | 
dimensions  incompatible  for  the  type  of  j 

operation  to  be  performed  | 

3.3.6.2.9.3.10.3.8 

LIMITATIONS 

The  following  table 

describes  the  exceptions  raised  by  this  part: 

|  Name 

When/Why  Raised  | 

|  Dimension  Error 

Raised  if  the  input  matrix  is  not  a  square  matrix  | 

3.3.6.2.9.3.10.4  SUBTRACT_FROM_IDENTITY  UNIT  DESIGN  (CATALOG  #P366-0) 

This  function  subtracts  a  square  input  matrix  from  an  identity  matrix  by 
negating  all  elements  of  an  input  matrix  and  then  adding  1.0  to  the  elements  on 
the  diagonal. 


3.3.6.2.9.3.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 


3.3.6.2.9.3.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.3.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

I  Type 

Mode 

|  Description  | 

|  Input 

1 

|  Matrices 

1 

In 

|  Square  matrix  to  be  subtracted  from  an  i 

i  identity  matrix  j 

3.3.6.2.9.3.10.4.4  LOCAL  DATA 


Data  objects: 
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The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  Matrices 

j  N/A 

|  Result  of  subtracting  input  matrix 

1 

1 

1 

j  from  an  identity  matrix  j 

|  Col  Marker 

|  Col  Indices 

j  N/A 

|  Column  index  i 

j  Row 

j  Row_Indices 

j  N/A 

j  Row  index  | 

3.3.6.2.9.3.10.4.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.3.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Subtract_from_Identity  (Input  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices(Input'RANGE(l) , Input 'RANGE(2) ) ; 
Col_Marker  :  Col_Indices; 

Row  :  Row  Indices; 


—  — begin  procedure  Subtract_From_Identity 


begin 

— make  sure  input  is  a  square  matrix 
if  Input 'LENGTH(l)  -  Input 'LENGTH(2)  then 

Row  :»  Input 'FIRST(l); 

ColMarker  :«  Input'FIRST(2); 

Row  Loop: 
loop 

Col  Loop: 

lor  Col  in  Input'RANGE(2)  loop 
if  Input(Row,Col)  /»  0.0  then 

Answer(Row,Col)  :=  -  Input(Row,Col) ; 
else 

Answer(Row,Col)  :=  0.0; 
end  if; 

end  loop  Col_Loop; 

if  Answer(Row,  Col_Marker)  /■  0.0  then 

Answer(Row,  Col_Marker)  :*  Answer(Row,  Col_Marker)  +  1.0; 
else 
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Answer(Row,  Col_Marker)  :=  1.0; 
end  if; 

exit  Row_Loop  when  Rcw  =  Input 'LAST(l); 

Row  : =  Row_Ind ices' SUCC ( Row ) ; 

Col_Marker  :=  Col_Indices' SUCC(Col_Karker) ; 

end  loop  Row_Loop; 


else 

raise  Dimension_£rror; 
end  if; 

return  Answer; 
end  Subtract  From  Identity; 


3.3.6.2.9.3.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynamically_Sparse_Matrix_- 
Operations_Unconstrained: 


|  Name 

1  Type 

1 

Description 

1 

|  Elements 

|  floating 

1 

Data  type  of  elements  in  exported  matrix 

type  | 

1 

j  point  type 

1 

|  Col  Indices 

j  discrete 

Used  to  dimension  exported  matrix  type 

1 

1 

type 

1 

1 

|  Row  Indices 

j  discrete 

1 

Used  to  dimension  exported  matrix  type 

1 

1 

1  type 

1 

1 

The  following  types  are  defined  in  the  package  specification  for  Dynamically_- 
Sparse_Matrix_Operations_Uncons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  j 

I  array  of  Elements  | 

Exceptions: 
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The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General  Vector  Matrix  Algebra: 


|  Name 

|  Description  | 

|  dimension  error 

1 

1 

|  Raised  by  a  routine  when  input  received  has  | 

|  dimensions  incompatible  for  the  type  of  | 

operation  to  be  performed  j 

3.3.6.2.9.3.10.4.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

When/Why  Raised  | 

|  Dimension  Error 

Raised  if  the  input  matrix  is  not  a  square  matrix  | 

3.3.6.2.9.3.10.5  "+"  UNIT  DESIGN  (CATALOG  IP367-0) 

This  function  adds  two  sparse  m  x  n  matrices,  by  adding  the  individual  elements 
of  the  input  matrices  taking  advantage  of  the  fact  that  most  of  the  elements  of 
both  matrices  equal  0. 


3.3.6.2.9.3.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 


3.3.6.2.9.3.10.5.2  LQCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.3.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description 

1 

|  Left 

|  Matrices 

In 

|  Sparse  matrix 

to  be 

added  | 

1  Right 

|  Matrices 

In 

|  Sparse  matrix 

to  be 

added  j 
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3.3.6.2.9.3.10.5.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


Name 

1 

Type 

1 

Value 

Answer 

1 

Matrices 

1 

N/A 

L  Col 

1 

Col  Indices 

1 

N/A 

I.  Row 

1 

Row  Indices 

1 

N/A 

R  Col 

1 

Col  Indices 

1 

N/A 

R  Row 

1 

Row  Indices 

1 

N/A 

|  Description 


Result  of  adding  two  input  matrices 
Column  index  into  left  matrix 
Row  index  into  left  matrix 
Column  index  into  right  matrix 
Row  index  into  right  matrix 


3.3.6.2.9.3.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.3.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices(Left'RANGE(l),  Left'RANGE(2)) ; 
L_Col  :  Col_Indices; 

LRow  :  Row_Indices; 

R_Col  :  Col_Indices; 

R  Row  :  Row  Indices; 


—  — begin  function  "+" 


begin 

— make  sure  have  compatible  dimensions 
if  Left'LENGTH(l)  =  Right'LENGTH(l)  and  then 
Lef t'LENGTH(2)  =  Right'LENGTH(2)  then 

L_Row  :=  Lef t'FIRST(l) ; 

R_Row  :=  Right 'FIRST(l); 

Row  Loop: 
loop 

LCol  Left'FIRST(2); 

RCol  Right 'FIRST(2); 

Col  Loop: 
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loop 

if  Left(L  Row,  L_Col)  =0.0  then 
if  RigKt(R_Row,  R_Col)  =  0.0  then 
Answer(L_Row,  L_Col)  :=  0.0; 
else 

Answer(L_Row,  L_Col)  :=  Right(R_Row,  R_Col); 
end  if; 

elsif  Right(R_Row,  R_Col)  =  0.0  then 

Ansvrer(L_Row,  L_Col)  :=  Left(L_Row,  L_Col); 
else 

Answer (L_Row,  L_Col)  :  =  Left(L_Row,  L_Col)  + 

Right(R  Row,  R  Col); 

end  if; 

exit  Col_Loop  when  L  Col  =  Left'LAST(2); 

L  Col  :  =  Col_Indices~SUCC(L_Col) ; 

R  Col  :=  Col_Indices '  SUCC(R_Col) ; 

end  loop  Col_Loop; 

exit  Row_Loop  when  L_Row  =  Left'LAST(l); 

L_Row  :■  Row_Indices~SUCC(L_Row); 

R~Row  :-  Row  lndices ' SUCC(R_Row) ; 

end  loop  Row_Loop; 


else 

raise  Dimension_Error; 
end  if; 
return  Answer; 

end 


3. 3. 6. 2. 9. ’.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynamically_Sparse_Matrix_- 
Operations  Unconstrained: 
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1 

Name 

1  Type 

|  Description 

1 

1 

Elements 

|  floating 

|  Data 

type  of  elements  in  exported 

matrix 

type  | 

1 

|  point  type 

1 

1 

1 

Col  Indices 

|  discrete 

j  Used 

to  dimension 

exported  matrix 

type 

1 

type 

1 

1 

1 

Row  Indices 

|  discrete 

j  Used 

to  dimension 

exported  matrix 

type 

1 

] 

1  type 

1 

1 

The  following  types  are  defined  in  the  package  specification  for  Dynamically- 
Sparse_Matrix_Operations_Uncons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional 
j  array  of  Elements  i 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 


|  Name  | 

Description  | 

|  dimension  error  | 

I  ”  i 

i  i 

Raised  by  a  routine  when  input  received  has  | 
dimensions  incompatible  for  the  type  of  j 

operation  to  be  performed  j 

3.3.6.2.9.3.10.5.8 

LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  | 

When/ Why  Raised  | 

|  Dimension  Error  | 

Raised  if  both  matrices  are  not  m  x  n  matrices  | 

3.3.6.2.9.3.10.6  UNIT  DESIGN  (CATALOG  #P368-0) 


This  function  subtracts  two  sparse  m  x  n  matrices  by  subtracting  the  individual 
elements  of  the  input  matrices,  taking  advantage  of  the  fact  that  most  of  the 
elements  of  both  matrices  equal  0. 
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3  3.6.2.9.3.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 


3.3.6.2.9.3.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.3.10.6.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description 

1 

|  Left 

|  Matrices  | 

1  In 

|  Sparse  matrix 

to  be 

treated  as 

the 

minuend 

|  Right 

j  Matrices  j 

|  In 

i  Sparse  matrix 

to  be 

treated  as 

the 

subtrahend  j 

3.3.6.2.9.3.10.6.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


Name 

Type 

1 

Value 

|  Description 

Answer 

Matrices 

1 

N/A 

|  Result  of  subtracting  two  input  matrices 

L  Col 

Col  Indices 

1 

N/A 

j  Column  index  into  left  matrix 

L  Row 

Row  Indices 

1 

N/A 

j  Row  index  into  left  matrix 

R  Col 

Col  Indices 

1 

N/A 

j  Column  index  into  right  matrix 

R  Row 

Row_Indices 

1 

N/A 

j  Row  index  into  right  matrix 

3.3.6.2.9.3.10.6.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.3.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


— declaration  section 
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Answer 
L_Col 
L_Row 
R_Col 
R  Row 


Matrices(Lef t'RANGE(l) ,  Lef t'RANGE(2)); 
Col_Indices; 

Row_Indices; 

Col_Indices; 

Row  Indices; 


—  — begin  function 


begin 

— make  sure  have  compatible  dimensions 
if  Left'LENGTH(l)  -  Right ' LENGTH(l)  and 
Left'LENGTH(2)  -  Right' LENGTH(2)  then 

L_Row  Left'FIRST(l); 

RRow  Right'FIRST(l) ; 

Row  Loop: 
loop 

LCol  :«  Lef t'FIRST(2); 

RCol  Right 'FIRST(2); 

Col  Loop: 
loop 

if  Left(L  Row,  L_Col)  »  0.0  then 
if  RigKt(R  Row,  R_Col)  -  0.0  then 
Answer(E_Row,  L_Col)  :»  0.0; 
else 

Answer(L_Row,  L_Col)  :-  -  Right(R_Row,  RCol); 
end  if; 

els if  Right (R_Row,  R_Col)  -  0.0  then 

Answer(L_Row,  L_Col)  :■  Left(L_Row,  L_Col); 
else 

Answer(L_Row,  L_Col)  :=  Left(L_Row,  L_Col)  - 

Right (R_Row,  R_Col); 

end  if; 

exit  Col_Loop  when  L  Col  -  Left'LAST(2); 

L  Col  :-  Col_IndicesTSUCC(L_Col); 

R~Col  :-  Col_Indices'SUCC(R~Col); 

end  loop  Col_Loop; 

exit  Row_Loop  when  L_Row  -  Lef t' LAST(l) ; 

L_Row  : »~Row_Indices ' SUCC( L_Row) ; 

R_Row  :»  Row~Indices'SUCC(R_Row); 

end  loop  Row  Loop; 


else 

raise  Dimension  Error; 


end  if; 
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return  Answer; 

end 


3.3.6.2.9.3.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynaraically_Sparse_Matrix_- 
Operations_Uncons trained: 


|  Name  |  Type  j  Description 


Elements 
Col_Indices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  exported  matrix  type 
Used  to  dimension  exported  matrix  type 
Used  to  dimension  exported  matrix  type 


The  following  types  are  defined  in  the  package  specification  for  Dynamically_- 
Sparse_Ma  t  r  i  x_Opera  t  i  onsJJncons  t  rained : 


|  Name 

Range  | 

Description  | 

|  Matrices 

1 

N/A  | 

1 

Unconstrained,  two-dimensional  | 
array  of  Elements  i 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector  Matrix_Algebra: 


Name  |  Description 


|  dimension_error  |  Raised  by  a  routine  when  input  received  has  | 
j  j  dimensions  incompatible  for  the  type  of  | 
|  j  operation  to  be  performed  j 


f 


L 
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3.3.6.2.9.3.10.6.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  parts 


|  Name 

When/Why  Raised  | 

|  Dimension  Error 

Raised  if  both  matrices  are  not  m  x  n  matrices  | 

3. 3. 6. 2. 9. 4  S YMMETRI C_HALF  STORAGE_MATRIX_OPERATIONS  PACKAGE  DESIGN  (CATALOG 
#P376-0) 

This  package  defines  a  symmetric  half  storage  matrix  and  provides  operations  on 
it.  For  the  operations  provided,  see  the  decomposition  section.  The  bottom 
half  of  the  matrix  will  be  stored  in  row-major  order. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 2. 9. 4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 


3. 3. 6. 2. 9. 4. 2  LOCAL  ENTITIES  DESIGN 


Subprograms : 

The  following  table  describes  the  subprograms  local  to  this  part: 


|  Name  | 

Type 

|  Description 

1 

|  Swap  Row  | 
1  "  1 

function 

|  Takes  a  column 
|  corresponding 

as  input,  and  returns  the  | 

row  entry  i 

|  Swap  Col  j 
1  "  1 

function 

|  Takes  a  row  as 
j  column  entry 

input,  and  returns  the  corresponding  j 

1 

This  package  contains  code  which  is  executed  when  the  package  is  elaborated. 
This  code  first  checks  to  make  sure  a  square  matrix  has  been  instantiated.  If 
not,  a  Dimension  Error  exception  is  raised.  If  a  square  matrix  has  been 
instantiated,  this  the  code  initializes  the  Row_Marker,  Local_Identity_Matrix, 
and  Col_0ffset  arrays. 


3. 3.6. 2. 9.4. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  in  this  part's  package 
specification. 
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Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


Elements 

Col 

InHices 

Row 

In3ices 

Col 

Slices 

Row 

Slices 


floating 
point  type 
discrete 
type 

discrete 

type 

array 


Data  type  of  elements  in  the  half  storage  matrix 
and  in  the  Slices  array 

Used  to  dimension  column  slices 

Used  to  dimension  row  slices  of  the  half  storage 
matrix  and  to  determine  the  number  of  elements 
which  need  to  be  stored 

Data  type  defining  a  column  slice  of  a  matrix 


array 


Data  type  defining  a  row  slice  of  a  matrix 


3. 3. 6. 2. 9. 4. 4  LOCAL  DATA 


Data  types: 

The  folloving  table  describes  the  data  types  previously  defined  in  this  part's 
package  specification: 


|  Name  |  Range  |  Description  | 


|  Matrices 

|  N/A 

1  A  one-dimensional  representation  of 

1 

1 

1 

a  two-dimens tonal,  half-storage 

1 

1 

matrix;  the  bottom  half  of  the 

1 

1 

matrix  will  be  stored  in  row-major 

1 

1 

1 

j  order 

1 

The  folloving  table  describes  the  data  types  defined  local  to  this  package. 


|  Name 

1  Type 

|  Description 

1 

|  Col  Index  Arrays 

1  " 

|  array 

|  Array  of  integers  indexed  by  Indices 
!  set  up  column  markers  into  Matrices 

used  to  | 

array 

|  Row  Index  Arrays 

1  " 

j  array 

|  Array  of  integers  indexed  by  Indices  used  to  | 

j  set  up  row  markers  into  Matrices  array  j 

Data  objects: 

The  following  table  describes  the  data  objects  defined  in  this  part's  package 
specification: 
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|  Name 

1  Type 

|  Value 

|  Description  | 

|  Entry  Count 

1 

1 

|  Positive 

1  i 

|  Number  of  stored  values  from  the  half- 
i  storage  matrix;  the  number  of  elements  j 
j  stored  in  a  half-storage  matrix  with 
i  n  rows  elements  is  n(n+l)/2 

The  following 

table  describes  the  data  objects  maintained  by  this  package: 

|  Name 

Type 

j  Description  | 

ColOffset 

Row_Marker 

Local_ 

Identity_ 

Matrix 

Local_ 

Zero 

Matrix 


Col_Index 

Arrays 

Row_Index 

Arrays 

Matrices 


Matrices 


Used  to  determine  the  offset  of  a  column  index 
from  the  first  column  index 
Used  to  marker  where  in  Matrices  a  particular 
row  begins 

Pre-initialized  identity  matrix 


Pre-initialized  zero  matrix 


Note:  The  following  scheme  is  used  to  access  an  element: 

Full_Storage(i, j)  <««> 

Half_Storage(Row_Marker(i)  +  Col_Offset(j)); 

The  following  data  objects  are  contained  in  a  declare  block  located  at  the  end 
of  this  package  body: 


'  Name 


|  Type  |  Value  |  Description 


Count 


Natural 


N/A 


Offset  |  Natural 

I 

Row_Starting_Point  |  Natural 


N/A 

N/A 


Counts  the  position  of  the  row 
index;  goes  from  0  to  the  number 
of  rows  -  1 

Offset  of  the  current  column  index 
from  the  first  column  index 
Where  in  the  diagonal  matrix  the 
current  row  starts 


3. 3. 6. 2. 9. 4. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 2. 9. 4. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Vector_Matrix_Algebra) 
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package  body  Symmetric_Half_Storage_Matrix_Operations  is 


—  — local  declarations 


type  Col_Index_Arrays  is  array(Col_Indices)  of  NATURAL; 
type  Row_Index_Arrays  is  array(Row_Indices)  of  NATURAL; 

Col_Offset  :  Col_Index_Arrays; 

Rov_Marker  :  Row_Index_Arrays; 

—  —this  object  is  initially  only  zeroed  out;  the  1.0  values  will  be  assigned 

—  — to  the  diagonal  elements  during  package  initialization 
Local_Identity_Matrix  :  Matrices  :»  (others  =*>  0.0); 

Local_Zero_Matrix  :  constant  Matrices  :*  (others  ->  0.0); 


— begin  processing  for  Symmetric_Half_Storage 
— Matrix_0perations  package  body 


begin 

InitBlocks 

declare 

Count  :  NATURAL; 

Offset  :  NATURAL; 

Rov_Starting_Point  s  NATURAL; 

begin 

— make  sure  lengths  of  row  and  col  indices  are  the  same 
if  Row  Sl ices'  LENGTH  /*  Col_Sl ices' LENGTH  then 

raise  Dimension_Error; 

else 


— initialize  row  marker  identity  matrix  arrays; 

— all  diagonal  elements,  except  for  the  last  one,  which  require 

—  a  value  of  1  for  the  identity  matrix  are  located  one  entry 

—  before  the  starting  location  of  the  next  row 


— handle  first  row  marker  entry  to  simplify  initialization  of 
— the  identity  matrix  — (NOTE:  count  implicitly  equals  0) 
Row_Marker(Row_Indices'FIRST)  :=  1; 

Count  :»  1; 

Row  rtarker_and_Identity  Matrix_Init_Loop: 

7or  Index  in  Row_IndTces'SUCC(Rov_Ind ices 'FIRST)  .. 

Row  Indices 'LAST  loop 
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Rov_Starting_Point  :=  (Count  *  (Count+1)  /  2)  +  1; 

Rov_Marker( Index)  :=  Rov_Starting_Point ; 
Local_Identity_Matrix(Row_Starting_Point-l)  :=  1.0; 

Count  :=  Count  +  1; 

end  loop  Row_Marker_and_Identi  ty_Matrix_Init_Loop; 

— initialize  last  diagonal  element 
Local_Identity_Matrix(Entry_Count)  :■  1.0; 

— initialize  column  offset  array 


Offset  :*  0; 

Col  Marker_lnit_Loop: 

lor  Index  in  Col  Indices  loop 
Col_0f fset(In<Iex)  :  =  Offset; 
Offset  :*  Offset  +  1; 
end  loop  Col_Marker_Init_Loop; 

end  if; 

end  InitBlock; 

end  Symme t r i c_Hal f _S t  orageMa t r ix_0pera t  i ons ; 


3. 3. 6. 2. 9. 4. 7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units:  ' 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector  Matrix_Algebra: 


|  Name  |  Description 


|  dimension_error  |  Raised  by  a  routine  when  input  received  has  | 
j  j  dimensions  incompatible  for  the  type  of  | 
j  |  operation  to  be  performed  j 


3. 3. 6. 2. 9. 4. 8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 
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|  Name 

When/Why  Raised  | 

|  Dimension  Error  | 
1  1 

Raised  if  an  attempt  is  made  to  instantiated  other  than  | 
a  square  matrix 

3. 3. 6. 2. 9. 4. 9  LLCSC  DESIGN 
None. 

3.3.6.2.9.4.10  UNIT  DESIGN 

3.3.6.2.9.4.10.1  SWAP_C0L  UNIT  DESIGN 

This  function  takes  a  row  index  is  input ,  and  returns  the  corresponding  column 
index. 

3.3.6.2.9.4.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 

3.3.6.2.9.4.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.4.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 

|  Name  |  Type  |  Mode  |  Description  | 

|  Row  |  Row_Indices  |  In  |  Row  to  be  converted  to  a  column  entry  | 


3.3.6.2.9.4.10.1.4  LOCAL  DATA 
None. 

3.3.6.2.9.4.10.1.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.4.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  SwapCol  (Row  :  Row_Indices)  return  Col_Indices  is 
begin 

return  Col_Indices' VAL(Row_Indices'POS(Row)  - 

Row_Ind  ices'  P0S(Row_Indices '  FIRST)  + 
Col_Indices'  P0S(Col_Indices'  FIRST)) ; 

end  Swap_Col; 


3.3.6.2.9.4.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  available  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


|  Name  |  Type  |  Description 


Col 

?n<Iices 

Row 

Indices 


discrete 

type 

discrete 

type 


Used  to  dimension  column  slices 

Used  to  dimension  row  slices  of  the  half  storage 
matrix  and  to  determine  the  number  of  elements 
which  need  to  be  stored 


3.3.6.2.9.4.10.1.8  LIMITATIONS 
None. 


3.3.6.2.9.4.10.2  SVAP_ROV  UNIT  DESIGN 

This  function  takes  a  column  index  is  input,  and  returns  the  corresponding  row 
index. 


3.3.6.2.9.4.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 


3.3.6.2.9.4.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.2.9.4.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Col 

|  Col  Indices  | 

|  In 

|  Column  to  be  converted  to  a  row  entry  | 

3.3.6.2.9.4.10  7.4  LOCAL  DATA 
None. 


3.3.6.2.9.4.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.4.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Svap_Rov  (Col  :  Col_Indices)  return  Rov_Indices  is 
begin 

return  Row_Indices'VAL(Col_Indices'POS(Col)  - 

Col~Ind i ces '  POS ( Col_Ind ices'  FIRST )  + 
Row~Indices ' POS (Row~Ind ices ' FIRST)  ) ; 

end  Swap_Rov; 


3.3.6.2.9.4.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  available  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


i  Name  |  Type  |  Description 


Col 

Indices 

Row 

Indices 


discrete 

type 

discrete 

type 


Used  to  dimension  column  slices 

Used  to  dimension  row  slices  of  the  half  storage 
matrix  and  to  determine  the  number  of  elements 
which  need  to  be  stored 


CAMP  Software  Detailed  Design  Document 


Page  766 


3.3.6.2.9.4.10.2.8  LIMITATIONS 


None. 


3.3.6.2.9.4.10.3  INITIALIZE  UNIT  DESIGN  (CATALOG  #P379-0) 

This  function  allows  the  half  storage  matrix  to  be  initialized  a  row  at  a  time. 
Even  through  an  entire  row  of  values  is  sent  in,  only  those  applicable  to  a 
given  row  will  be  referenced  (i.e.,  1  value  for  row  1,  2  values  for  row  2, 
etc. ) . 


3.3.6.2.9.4.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 


3.3.6.2.9.4.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.4.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 


I  Type 


Mode 


Description 


1 

Row_Slice 

1 

Slices 

1 

In 

|  Row  of  values  to  be  placed  in  the  half- 

1 

1 

1 

1 

j  storage  matrix 

1 

Row 

1 

Row 

1 

In 

j  Indicates  which  row  of  values  this  is 

I 

Indices 

1 

1 

1 

Matrix 

1 

Matrices 

1 

Out 

|  Half-storage  matrix  to  be  initialized 

1 

3.3.6.2.9.4.10.3.4  LOCAL  DATA 


None. 


3.3.6.2.9.4.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.4.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Initialize  (Row_Slice  :  in  Row_Slices; 

Row  :  in  Row_Indices; 

Matrix  :  out  Matrices)  is 


CAMP  Software  Detailed  Design  Document 


Page  767 


— declaration  section 


Index  :  Col_Indices; 
Marker  :  POSITIVE; 
Stop_Here  s  POSITIVE; 


—  -  begin  procedure  Initialize 


begin 

Index  :=  Col_Indices' FIRST; 

Marker  :»  Row  Marker (Row); 

Stop_Here  :=»  Marker  +  Col_Offset(Swap_Col(Row)); 
Process: 
loop 

Matrix(Marker)  :=  Row_Slice( Index) ; 

exit  Process  when  Marker  -  Stop_Here; 

Index  :-  Col  Indices' SUCC(Index) ; 

Marker  Marker  +  1; 

end  loop  Process; 

end  Initialize; 


3.3.6.2.9.4.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  available  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Half_Storage_Matrix_- 
Operations: 
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|  Name  |  Type  |  Description 


Elements 

Col_ 

Indices 

Row 

Indices 

Col_ 

Slices 

Row 

Slices 


floating 
point  type 
discrete 
type 

discrete 

type 

array 


Data  type  of  elements  in  the  half  storage  matrix 
and  in  the  Slices  array 
Used  to  dimension  column  slices 

Used  to  dimension  row  slices  of  the  half  storage 
matrix  and  to  determine  the  number  of  elements 
which  need  to  be  stored 
Data  type  defining  a  column  slice  of  a  matrix 


array 


Data  type  defining  a  row  slice  of  a  matrix 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name  |  Range  |  Description 


|  Matrices 

|  N/A 

|  A  one-dimensional  representation  of 

1 

1 

a  two-dimensional,  half-storage 

i 

1 

matrix;  the  bottom  half  of  the 

matrix  will  be  stored  in  row-major 

i 

1 

|  order 

♦ 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name 

1  Type 

|  Description 

1 

|  Col  Offset 

|  Col  Index 

|  Used  to  determine  the  offset  of 

a  column  index  | 

1 

Arrays 

i  from  the  first  column  index 

1 

|  Row  Marker 

|  Row  Index 

j  Used  to  marker  where  in  Matrices 

a  particular  | 

1 

|  Arrays 

j  row  begins 

1 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


|  Name  | 

Type 

|  Description 

1 

|  Swap  Row  | 
1  '  1 

function 

|  Takes  a  column  as  input, 
j  corresponding  row  entry 

and  returns  the  | 

|  Swap  Col  | 
1  "  1 

function 

j  Takes  a  row  as  input,  and 
j  column  entry 

returns  the  corresponding  | 

1 
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3.3.6.2.9.4.10.3.8  LIMITATIONS 


None. 


3.3.6.2.9.4.10.4  IDENTITY_MATRIX  UNIT  DESIGN  (CATALOG  #P380-0) 

This  function  returns  an  identity  matrix.  An  identity  matrix  is  one  where  all 
elements  equal  0.0  except  the  diagonal  elements  which  equal  1.0. 


3.3.6.2.9.4.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 


3.3.6.2.9.4.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.4.10.4.3  INPUT/OUTPUT 
None. 

3.3.6.2.9.4.10.4.4  LOCAL  DATA 
None. 

3.3.6.2.9.4.10.4.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.4.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Identity_Matrix  return  Matrices  is 
begin 

return  Local_Identity_Matrix; 
end  Identity_Matrix; 

3.3.6.2.9.4.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 
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Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name  I  Range  |  Description 


Matrices  |  N/A  |  A  one-dimensional  representation  of 

l  a  two-dimensional,  half-storage 
matrix;  the  bottom  half  of  the 
matrix  will  be  stored  in  row-major 
|  order 


Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name 

Type 

|  Description  | 

|  Local_ 
IdenTity_ 
j  Matrix 

Matrices 

|  Pre-initialized  identity  matrix  | 

I  ! 

3.3.6.2.9.4.10.4.8  LIMITATIONS 


None. 


3.3.6.2.9.4.10.5  ZF,R0_MATRIX  UNIT  DESIGN  (CATALOG  #P381-0) 
This  function  returns  a  zeroed  out  half-storage  matrix. 


3.3.6.2.9.4.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 


3.3.6.2.9.4.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.4.10.5.3  INPUT/OUTPUT 


None. 


ft 
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3.3.6.2.9.4.10.5.4  LOCAL  DATA 


None. 


3.3.6.2.9.4.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.4.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Zero_Matrix  return  Matrices  is 
begin 

return  Local_Zero_Matrix; 
end  Zero_Matrix; 

3.3.6.2.9.4.10.5.7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

v#  The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Syrametric_Half_Storage_Matrix_Operations: 

|  Name  |  Range  |  Description  | 

|  Matrices  |  N/A  A  one-dimensional  representation  of 

a  two-dimensional,  half-storage 
matrix;  the  bottom  half  of  the 
matrix  will  be  stored  in  row-major 
order 

Data  objects: 


The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Symmetric  Half_Storage_Matrix_Operations: 

|  Name  | 

Type 

|  Description  | 

|  Local  | 

|  Zero 

Matrix  ! 

Matrices 

|  Pre-ini tialized  zero  matrix  | 

I  1 

!  1 
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3.3.6.2.9.4.10.5.8  LIMITATIONS 


None. 


3.3.6.2.9.4.10.6  CHANGE_ELEMENT  UNIT  DESIGN  (CATALOG  #P382-0) 

This  procedure  changes  a  single  element  in  the  half-storage  matrix  based  on  the 
two-dimensional  row  and  column  indices  provided. 


3.3.6.2.9.4.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 


3.3.6.2.9.4.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.4.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  New  Value 

|  Elements 

1  1" 

New  value  to  be  placed  in  Matrix  ! 

j  Row 

j  Row  Indices 

|  In 

Row  where  New  Value  is  to  be  placed  j 

|  Col 

|  Col  Indices 

1  In 

Column  where  Flew  Value  is  to  be  placed  j 

j  Matrix 

|  Matrices 

1  Out 

Half-storage  matrix  to  be  updated  | 

3.3.6.2.9.4.10.6.4  LOCAL  DATA 


None. 


3.3.6.2.9.4.10.6.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.4.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Change_Element  (New_Value  :  in  Elements; 

Row  :  in  Rov_Indices; 

Col  :  in  Col_Indices; 

Matrix  :  out  Matrices)  is 


begin 
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— determine  which  half  of  the  matrix  is  being  referenced 
if  Row_Indices'POS(Row)  -  Row_Indices'POS(Row_Indices' FIRST)  >= 
Col_Indices' POS(Col)  -  Col_Indices' POS(Col_Indices' FIRST)  then 

— looking  at  bottom  half  of  array 

Matrix(Row_Marker(Row)  +  Col_Offset(Col))  :=  New_Value; 
else 

— looking  at  top  half;  need  to  switch  to  bottom  half 
Ma  t  r  i  x  (  Row_Marker  ( Swap_Row  ( Col )  )  + 

Col_Offset(Swap_Col(Row)))  :•  Nev_Value; 


end  if; 

end  Change_Element ; 


3.3.6.2.9.4.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  available  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


|  Name  |  Type  |  Description 


Elements 

Col 

Indices 

Row 

Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  the  half  storage  matrix 
and  in  the  Slices  array 
Used  to  dimension  column  slices 

Used  to  dimension  row  slices  of  the  half  storage 
matrix  and  to  determine  the  number  of  elements 
which  need  to  be  stored 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name  |  Range  |  Description 


Matrices 


N/A 


A  one-dimensional  representation  of 
a  two-dimensional,  half-storage 
matrix;  the  bottom  half  of  the 
matrix  will  be  stored  in  row-major 
order 
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Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Symmetric_Half_Storage_Matrix_Operations: 


]  Name 

1  Type 

|  Description 

1 

|  Col  Offset 

|  Col  Index 

|  Used  to  determine  the  offset  of  a 

column  index  | 

1 

Arrays 

j  from  the  first  column  index 

1 

|  Row  Marker 

Row  Index 

|  Used  to  marker  where  in  Matrices  a 

particular  | 

I  1 

;  Arrays 

|  row  begins 

1 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


|  Name  | 

1  Type 

|  Description  | 

|  Swap  Row  | 
1 

function 

|  Takes  a  column  as  input,  and  returns  the 
j  corresponding  row  entry  j 

|  Swap  Col  | 
1  '  1 

function 

j  Takes  a  row  as  input,  and  returns  the  corresponding  j 
j  column  entry  j 

3.3.6.2.9.4.10.6.8  LIMITATIONS 


None. 


3.3.6.2.9.4.10.7  RETRIEVE_ELEMENT  UNIT  DESIGN  (CATALOG  #P383-0) 

This  function  retrieves  an  element  from  a  half-storage  matrix  using 
two-dimensional  row  and  column  indices  as  input. 


3.3.6.2.9.4.10.7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 


3.3.6.2.9.4.10.7.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.4.10.7.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 
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The  following  table  describes  this  part's  formal  parameters: 


|  Name 

i  Type 

|  Mode 

|  Description 

1 

|  Matrix 

|  Matrices 

1  In 

j  Half-storage 

matrix  containing  desired  i 

1 

1 

1  element 

1 

|  Row 

|  Row  Indices 

1  In 

j  Row  in  which 

element  is  contained  [ 

3.3.6.2.9.4.10.7.4  LOCAL  DATA 


None. 


3.3.6.2.9.4.10.7.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.4.10.7.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Retrieve_Element  (Matrix  :  Matrices; 

Rov  :  Row_Indices; 

Col  :  Col  Indices)  return  Elements  is 


— declaration  section 


Answer  :  Elements; 


—  — begin  function  Retrieve_Element 


begin 

— determine  which  half  of  the  array  is  being  referenced 
if  Row_Indices' POS(Row)  -  Row  Indices ' POS(Row_Indices' FIRST)  >» 
Col_Ind i ces '  POS ( Col )  -  Col "indices 'POS(Col_Indices' FIRST)  then 

— already  looking  at  the  bottom  half  of  the  array 
Answer  :»  Matrix(Row_Marker(Row)  +  Col_0f fset(Col)) ; 

else 

— looking  at  the  top  half;  need  to  switch  to  bottom  half 
Answer  :=  Matrix(Row_Marker(Swap_Row(Col) )  + 
Col_Offset(Swap_Col(Row))) ; 


end  if; 


return  Answer; 
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end  Retrieve_Element ; 

3.3.6.2.9.4.10.7.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  available  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


|  Name  |  Type  |  Description 


Elements 

Col 

Indices 

Rov 

Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  the  half  storage  matrix 
and  in  the  Slices  array 
Used  to  dimension  column  slices 

Used  to  dimension  rov  slices  of  the  half  storage 
matrix  and  to  determine  the  number  of  elements 
which  need  to  be  stored 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name 

1 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

I  A  one-dimensional  representation  of 

1 

1 

a  two-dimensional,  half-storage 

1 

1 

matrix;  the  bottom  half  of  the 

1 

matrix  will  be  stored  in  row-major 

1 

1 

|  order 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Symraetric_Half_Storage_Matrix_Operations: 


|  Name 

1  Type 

|  Description 

1 

|  Col  Offset 

|  Col  Index 

|  Used  to  determine  the  offset  of 

a  column  index  | 

i  "  1 

1  Arrays 

from  the  first  column  index 

1 

|  Row  Marker 

Rov  Index 

j  Used  to  marker  where  in  Matrices 

a  particular 

1 

1  Arrays 

[  rov  begins 

1 
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Subprograms  and  task,  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


|  Name  | 

Type 

1  Description 

1 

|  Swap  Row  | 

1  "  I 

|  Swap  Col  | 
1  1 

function 

function 

|  Takes  a  column 
corresponding 
|  Takes  a  row  as 
|  column  entry 

as  input,  and  returns  the  | 
row  entry  j 
input,  and  returns  the  corresponding  j 

1 

3.3.6.2.9.4.10.7.8  LIMITATIONS 


None. 


3.3.6.2.9.4.10.8  R0V_SLICE  UNIT  DESIGN  (CATALOG  #P384-0) 

This  function  returns  an  array  which  contains  all  the  elements  in  a  requested 
row. 


3.3.6.2.9.4.10.8.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 


3.3.6.2.9.4.10.8.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.4.10.8.3  INPUT/OUTPUT 
FORMAL  PARAMETERS : 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description 

1 

|  Matrix 

|  Matrices 

1  In 

|  Half-storage  matrix 

containing  values  to  be| 

j 

1 

i  be  retrieved 

1 

j  Row 

Row  Indices 

1  I" 

j  Indicates  which  row 

of  values  is  desired 

3.3.6.2.9.4.10.8.4  LOCAL  DATA 
Data  objects: 
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The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  Answer 

Row  Slices 

N/A 

|  Requested  row  of  values  | 

3.3.6.2-9.4.10.8.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.4.10.8.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Row_Slice  (Matrix  :  Matrices; 

Row  :  Row  Indices)  return  Row  Slices  is 


— declaration  section 


Answer  :  Row  Slices; 


—  — begin  function  Row_Slice 


begin 

— retrieve  row  elements  in  bottom  half  of  array 
Bottom_Loop: 

for  Col  in  Col_Indices' FIRST  ..  Swap_Col(Row)  loop 

Answer(Col)  Matrix(Row_Marker(Rov)  +  Col_0ffset(Col)); 
end  loop  3ottora_Loop; 

— retrieve  row  elements  in  top  half  of  array,  if  there  are  any 
if  Row  /-  Row_Ind ices' LAST  then 
Top  Loop: 

lor  Col  in  Col_Indices'SUCC(Swap  Col(Row))  ..  CjI  Indices'LAST  loop 
Answer(Col)  :=  Matrix(Row_Marlter(Swap_Row(Col)7  + 

Col~Offset(Swap~Col(Row))) ; 

end  loop  Top_Loop; 
end  if; 

return  Answer 


end  Row  Slice; 
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3.3.6.2.9.4.10.8.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  tl.  rt  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  available  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


|  Name  |  Type  |  Description 


Col 

Indices 

Row 

Indices 


discrete 

type 

discrete 

type 


Row 

Slices 


array 


Used  to  dimension  column  slices 

Used  to  dimension  row  slices  of  the  half  storage 
matrix  and  to  determine  the  number  of  elements 
which  need  to  be  stored 
Data  type  defining  a  row  slice  of  a  matrix 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name  |  Range  |  Description 


Matrices 


N/A 


A  one-dimensional  representation  of 
a  two-dimensional,  half-storage 
matrix;  the  bottom  half  of  the 
matrix  will  be  stored  in  row-major 
order 


Data  objects: 

The  following  data  objects  are  required  by  this  part  and  defined  in  the  package 
body  of  Symmetric_Half_Storage_Matrix_Operations; 


|  Name 

1  Type 

|  Description 

1 

|  Col  Offset 

1  Col  Index 

|  Used  to  determiie  the  offset  of 

a  column  index 

1 

Arrays 

i  from  the  first  column  index 

|  Row  Marker 

Row  Index 

j  Used  to  marker  wiere  in  Matrices 

a  particular 

1 

;  Arrays 

j  row  begins 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Symmetric_Half_Storage_Matrix_- 
Operations: 
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|  Name 

Type 

Description 

1 

|  Swap  Row 

|  Swap  Col 

1 

function 

function 

|  Takes  a  column 
j  corresponding 
j  Takes  a  row  as 
j  column  entry 

as  input,  and  returns  the  | 
row  entry  j 
input,  and  returns  the  corresponding  j 

1 

3.3.6.2.9.4.10.8.8  LIMITATIONS 
None. 

3.3.6.2.9.4.10.9  COLUMN_SLICE  UNIT  DESIGN  (CATALOG  #P385-0) 

This  function  retrieves  all  the  values  contained  in  a  single  column  of  a 
symmetric  matrix. 


3.3.6.2.9.4.10.9.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 

3.3.6.2.9.4.10.9.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.4.10.9.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description 

1 

|  Matrix 

1 

|  Matrices 

1 

1  In 

|  Half-storage  matrix  from  which  a 
values  is  to  be  retrieved 

column  of  j 

1 

j  Col 

j  Col_Indices  | 

1  In 

j  Indicates  which  column  of  values 

is  desired j 

3.3.6.2.9.4.10.9.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  Answer 

Col_Slices 

N/A 

|  Column's  worth  of  values  | 
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3.3.6.2.9.4.10.9.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.4.10.9.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Column_Slice  (Matrix  :  Matrices; 

Col  :  Col  Indices)  return  Col  Slices  is 


— declaration  section 


Answer  :  Col  Slices; 


—  — begin  function  Column_Slice 


begin 

— retrieve  column  elements  contained  in  bottom  half  of  array 
Bottom_Loop: 

for  Row  in  SwapRow(Col)  ..  RowIndices'LAST  loop 

Ansver(Rov)  :■  Matrix(Rov_Marker(Rov)  +  ColOffset(Col)); 
end  loop  Bottom_Loop; 

— retrieve  column  elements  contained  in  top  half  of  array,  if  any 
if  Col  /-  Collndices' FIRST  then 
Top  Loop: 

lor  Row  in  Row_Indices' FIRST  ..  Row  Indices'PRED(Swap_Row(Col))  loop 
Answer(Row)  :  -  Matrix(Row_Markerl[Swap_Row(Col))  + 

Co 1_0 f f s e t ( Swap_Co 1 ( Row ) ) ) ; 

end  loop  TopJLoop; 
end  if; 

return  Answer; 
end  Column  Slice; 


3.3.6.2.9.4.10.9.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  available  to  this  part  and 
defined  at  the  package  specification  level  of  Syrametric_Half_Storage_Matrix_- 
Operations: 
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|  Name  | 

Type 

Description  | 

|  Elements  | 

1  I 

|  Col  | 

|  Indices  | 

|  Row  j 

j  Indices  j 

1 

1  Col  i 

j  Slices  j 

floating 
point  type 
discrete 
type 

discrete 

type 

array 

|  Data  type  of  elements  in  the  half  storage  matrix  | 
j  and  in  the  Slices  array  | 

j  Used  to  dimension  column  slices  j 

1  1 

|  Used  to  dimension  row  slices  of  the  half  storage  | 

i  matrix  and  to  determine  the  number  of  elements  j 

j  which  need  to  be  stored  j 

j  Data  type  defining  a  column  slice  of  a  matrix  i 

1  1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix  Operations: 

|  Name  | 

Range  | 

Description  | 

|  Matrices  | 

1  1 

i  i 

N/A  |  A 

1 

1 

1 

one-dimensional  representation  of  i 
a  two-dimensional,  half-storage  j 

matrix;  the  bottom  half  of  the 
matrix  will  be  stored  in  row-major 
order 

Data  objects: 

. 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Symmetric_Half_Storage_Matrix_Operations: 

|  Name 

1  Type 

|  Description  | 

|  Col  Offset 

! 

|  Row  Marker 

1 

|  Col  Index 
j  Arrays 
j  Row_Index 
j  Arrays 

|  Used  to  determine  the  offset  of  a  column  index  | 
from  the  first  column  index  I 

j  Used  to  marker  where  in  Matrices  a  particular  j 
j  row  begins  j 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Symmetric._Half_Storage_Matrix_- 
Operations: 

|  Name  | 

Type  | 

Description  | 

|  Swap  Row  | 

1  "  1 

|  Swap  Col  | 

1  “  1 

function  | 

function  | 

1 

Takes  a  column  as  input,  and  returns  the  | 

corresponding  row  entry  j 

Takes  a  row  as  input,  and  returns  the  corresponding  j 
column  entry  j 
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3.3.6.2.9.4.10.9.8  LIMITATIONS 
None. 

3.3.6.2.9.4.10.10  ADD_TO_IDENTITY  UNIT  DESIGN  (CATALOG  #P386-0) 

This  function  adds  an  input  matrix  to  an  identity  matrix,  returning  the  result. 
The  addition  is  performed  by  adding  1.0  to  each  diagonal  element  of  the  input 
matrix. 

3.3.6.2.9.4.10.10.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 

3.3.6.2.9.4.10.10.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.4.10.10.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

|  Matrices 

In 

|  Matrix  to  be  added  to  an  identity  matrix  | 

3.3.6.2.9.4.10.10.4  LOCAL  DATA 
Data  objects: 

The  following  table  summarizes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

|  Description  | 

|  Answer 

Matrices 

|  Result  of  adding  input  matrix  to  identity  matrix  | 

3.3.6.2.9.4.10.10.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.4.10.10.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Add  to  Identity  (Input  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices; 


—  — begin  function  Add  To_Identity 


begin 

— do  straight  assignment  of  all  elements  and  then  add  in  the 
— identity  matrix 

Answer  :»  Input; 

— all  diagonal  elements,  except  for  the  last  one,  are  located  one 
— entry  before  the  starting  location  of  the  next  rov 
Add  Identity_Loop: 

Tor  Index  in  Rov_Indices'SUCC(Row_Indices'  FIRST)  .. 

RowIndices'LAST  loop 

Answer(Row_Marker(Index)  -  1)  Answer  (Rov_Marker(  Index) -1)  +  1.0; 

end  loop  AddldentityLoop; 

— handle  last  diagonal  element 
Ansver(Entry_Count)  :-  Answer (Entry_Count)  +  1.0; 

return  Answer; 

end  Add_to_Identity; 


3.3.6.2.9.4.10.10.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  available  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Half_Storage_Matrix_- 
Operations: 
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|  Name  |  Type  |  Description 


Elements 

Rov_ 

Indices 


floating 
point  type 
discrete 
type 


Data  type  of  elements  in  the  half  storage  matrix 
and  in  the  Slices  array 

Used  to  dimension  row  slices  of  the  half  storage 
matrix  and  to  determine  the  number  of  elements 
which  need  to  be  stored 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name  |  Range  |  Description 


Matrices 


N/A 


A  one-dimensional  representation  of 
a  two-dimensional,  half-storage 
matrix;  the  bottom  half  of  the 
matrix  will  be  stored  in  row-major 
order 


Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name 

|  Type  |  Value 

|  Description  | 

|  Entry  Count 
: 
l 
l 

|  Positive  j  — 

1 

1  1 

1  I 

|  Number  of  stored  values  from  the  half- 
|  storage  matrix;  the  number  of  elements  j 
stored  in  a  half-storage  matrix  with 
|  n  rows  elements  is  n(n+l)/2  | 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name 

1  Type 

|  Description 

1 

|  Col  Offset 

|  Col  Index 

|  Used  to  determine  the  offset  of 

a  column  index  | 

1 

Arrays 

i  from  the  first  column  index 

1 

j  Row  Marker 

Row  Index 

j  Used  to  marker  where  in  Matrices 

a  particular  i 

1  '  1 

Arrays 

j  row  begins 

1 

3.3.6.2.9.4.10.10.8  LIMITATIONS 


None. 
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3.3.6.2.9.4.10.11  SUBTRACT_FROM_IDENTITY  UNIT  DESIGN  (CATALOG  #P387-0) 

This  function  subtracts  an  input  matrix  from  an  identity  matrix.  It  does  this 
by  first  subtracting  the  input  matrix  from  a  zero  matrix  and  then  adding  it  to 
an  identity  matrix. 


3.3.6.2.9.4.10.11.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 


3.3.6.2.9.4.10.11.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.4.10.11.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

|  Matrices 

1 

In 

|  Matrix  to  be  subtracted  from  an  identity  | 

j  matrix  | 

3.3.6.2.9.4.10.11.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Description  | 

|  Answer 

1 

Matrices 

Result  of  subtracting  input  matrix  from  an  identity  | 

matrix  j 

3.3.6.2.9.4.10.11.5  PROCESS  CONTROL 


Not  applicable. 


3.3  '..2.9.4.10.11.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Subtract_from_Identity  (Input  :  Matrices)  return  Matrices  is 
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— declaration  section 


Answer  :  Matrices; 


—  — begin  function  Subtract_from_Identity 


begin 

— subtract  Input  from  a  zero  matrix  and  then  add  it  to  an  identity  matrix 
Subtract_Loop: 

for  Index  in  1.  .Entry_Count  loop 
Answer(Index)  -  Input (Index) ; 
end  loop  Subtract_Loop; 

— all  diagonal  elements,  except  for  the  last  one,  are  located  one 
— entry  before  the  starting  location  of  the  next  row 
Add  Identity_Loop: 

lor  Index  in  Row_Indices'SUCC(Row_Indices' FIRST)  .. 

Row_Ind ices 'LAST  loop 

Answer(Row  Marker(Index)  -  1)  u  Answer (Row_Marker(Index)-l)  +  1.0; 
end  loop  Add_Identity_Loop; 

m.  —  — handle  last  diagonal  element 

Answer(Entry  Count)  :-  Answer (Entry_Count)  +  1.0; 

return  Answer; 

end  Subtract_from  Identity; 


3.3.6.2.9.4.10.11.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTIIT7ATI0N  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

pm  '*‘•*0^. 

n»  wing  table  summarizes  the  generic  types  available  to  this  part  and 

delij^  c  the  package  specification  level  of  Symmetric_Half_Storage_Matrix_- 
Operat  is: 
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I  Name  |  Type  |  Description 


|  Elements 
'  Col 

|  Indices 
j  Row 

j  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  the  half  storage  matrix 
and  in  the  Slices  array 
Used  to  dimension  column  slices 

Used  to  dimension  row  slices  of  the  half  storage 
matrix  and  to  determine  the  number  of  elements 
which  need  to  be  stored 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


Name 


|  Range  |  Description 


A  one-dimensional  representation  of 
a  two-dimensional,  half-storage 
matrix;  the  bottom  half  of  the 
matrix  will  be  stored  in  row-major 
order 


Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name 

|  Type  |  Value 

|  Description 

1 

|  Entry  Count 

i 

1 

|  Positive  |  — 

1  ! 

1  ! 

1  1 

|  Number  of  stored  values  from  the  half- 
|  storage  matrix;  the  number  of  elements 
j  stored  in  a  half-storage  matrix  with 
j  n  rows  elements  is  n(n+l)/2 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name 

1  Type 

|  Description  | 

|  Col  Offset 

1  Col  Index 

|  Used  to  determine  the  offset  of  a  column  index 

1 

Arrays 

j  from  the  first  column  index 

|  Row  Marker 

Row  Index 

j  Used  to  marker  where  in  Matrices  a  particular 

I  1 

|  Arrays 

j  row  begins 

3.3.6.2.9.4.10.11.8  LIMITATIONS 


None. 
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3.3.6.2.9.4.10.12  "+"  UNIT  DESIGN  (CATALOG  #P388-0) 

This  function  adds  two  half-storage  matrices  by  adding  the  individual  elements 
of  the  input  matrices,  returning  the  resultant  matrix. 


3.3.6.2.9.4.10.12.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 


3.3.6.2.9.4.10.12.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.4.10.12.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Left 

|  Matrices 

!  In 

|  First  matrix  to  be  added 

|  Right 

j  Matrices 

|  In 

j  Second  matrix  to  be  added 

3.3.6.2.9.4.10.12.4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


|  Name  | 

Type 

Description 

1 

|  Answer  | 

Matrices 

Result  of  adding  the  two  input  matrices 

1 

3.3.6.2.9.4.10.12.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.4.10.12.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—declaration  section 
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Answer  :  Matrices; 


—  — begin  function  "+" 


begin 

Process: 

for  Index  in  ^.ntry_Count  loop 

Answer (Inuex)  :»  Left(Index)  +  Right(Index) ; 
end  loop  Process; 

return  Answer; 

end  "+"; 


3.3.6.2.9.4.10.12.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used'  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  available  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


|  Name  |  Type 

Description  | 

Elements  |  floating 

Data  type  of  elements  in  the  half  storage  matrix 

j  point  type 

and  in  the  Slices  array 

Col  j  discrete 

Used  to  dimension  column  slices 

Indices  j  type 

Row  j  discrete 

Used  to  dimension  row  slices  of  the  half  storage 

InHices  j  type 

matrix  and  to  determine  the  number  of  elements 

1 

which  need  to  be  stored 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name  |  Range  |  Description 


Matrices  |  N/A 


A  one-dimensional  representation  of 
a  two-dimensional,  half-storage 
matrix;  the  bottom  half  of  the 
matrix  will  be  stored  in  rov-major 
order 
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Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name 

|  Type  |  Value 

j  Description 

1 

|  Entry  Count 

1 

1 

1 

|  Positive  |  - 

i  1 

i  1 

1  1 

|  Number  of  stored  values  from  the  half-  j 
j  storage  matrix;  the  number  of  elements  j 
stored  in  a  half-storage  matrix  with  I 
n  rows  elements  is  n(n+l)/2  | 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name 

1  Type 

|  Description 

1 

|  Col  Offset 

1  " 

|  Col  Index 
Arrays 

|  Used  to  determine  the  offset  of 
j  from  the  first  column  index 

a  column  index 

|  Row  Marker 

1  '  1 

Row  Index 
Arrays 

j  Used  to  marker  where  in  Matrices 
j  row  begins 

a  particular 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


|  Name  | 

Type 

|  Description 

1 

|  Swap  Row  | 

i  "  1 

function 

|  Takes  a  column  as  input, 
corresponding  row  entry 

and  returns  the  | 

1 

|  Swap  Col  | 

1  "  1 

function 

j  Takes  a  row  as  input,  and 
j  column  entry 

returns  the  corresponding  | 

3.3.6.2.9.4.10.12.8  LIMITATIONS 


None. 


3.3.6.2.9.4.10.13  UNIT  DESIGN  (CATALOG  #P389-0) 

This  function  subtracts  two  half-storage  matrices  by  subtracting  the  individual 
elements  of  the  input  matrices,  returning  the  resultant  matrix. 
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3.3.6.2.9.4.10.13.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 

3.3.6.2.9.4.10.13.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.4.10.13.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description 

1 

|  Left 

|  Matrices 

In 

|  Matrix  to  be  subtracted 

from  | 

I  Right 

j  Matrices 

In 

|  Matrix  to  be  subtracted 

from  Left  1 

3.3.6.2.9.4.10.13.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

|  Value 

|  Description  | 

|  Answer 

I 

Matrices 

|  N/A 

1 

|  Result  of  subtracting  Right  input  matrix  | 

j  from  Left  input  matrix  | 

3.3.6.2.9.4.10.13.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.4.10.13.6  PROCESSING 

The  following  describes.  the  processing  performed  by  this  part: 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices; 


( 
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—  — begin  function 


begin 

Process: 

for  Index  in  1  . .  Entry_Count  loop 

Ansver(Index)  :=  Lefl(Index)  -  Right (Index) ; 
end  loop  Process; 

return  Answer; 

end 


3.3.6.2.9.4.10.13.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  available  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


|  Name  |  Type  |  Description  | 


1 

Elements 

i 

floating 

1 

Data  type  of  elements  in  the  half  storage  matrix 

1 

1 

1 

point  type 

1 

and  in  the  Slices  array 

1 

1 

Col 

1 

discrete 

1 

Used  to  dimension  column  slices 

1 

Indices 

type 

1 

1 

Row 

1 

discrete 

1 

Used  to  dimension  row  slices  of  the  half  storage 

I 

1 

Indices 

1 

type 

1 

matrix  and  to  determine  the  number  of  elements 

1 

1 

1 

1 

which  need  to  be  stored 

1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name  |  Range  |  Description 


Matrices 


N/A 


A  one-dimensional  representation  of 
a  two-dimensional,  half-storage 
matrix;  the  bottom  half  of  the 
matrix  will  be  stored  in  row-major 
order 


Data  objects: 
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The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name  |  Type  |  Value  |  Description 


|  Entry_Count  |  Positive  |  —  |  Number  of  stored  values  from  the  half-  | 

I  storage  matrix;  the  number  of  elements  j 

j  III  stored  in  a  half-storage  matrix  with  i 

j  j  j  j  n  rows  elements  is  n(n+l)/2  j 


The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Symmetric_Half_Storage_Matrix_Operations: 


|  Name 

1  Type 

|  Description 

1 

|  Col  Offset 

|  Col  Index 

|  Used  to  determine  the  offset  of 

a  column  index  | 

1  “  1 

j  Arrays 

j  from  the  first  column  index 

1 

|  Row  Marker 

I  Row  Index 

j  Used  to  marker  where  in  Matrices 

a  particular  | 

1  1 

i  Arrays 

i  row  begins 

1 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Symmetric_Half_Storage_Matrix_- 
Operations: 


|  Name  | 

Type 

j  Description 

1 

|  Swap  Row  | 

"  ; 
|  Swap  Col  | 

1  I 

function 

function 

|  Takes  a  column 
j  corresponding 
|  Takes  a  row  as 
column  entry 

as  input,  and  returns  the 

row  entry  j 

input,  and  returns  the  corresponding  | 

1 

3.3.6.2.9.4.10.13.8  LIMITATIONS 


None. 


3. 3. 6. 2. 9. 5  SYMMETRIC  FULL  STORAGE_MATRIX_OPERATIONS_UNCONSTRAINED  PACKAGE  DESIGN 
(CATALOG  #P39(5-0)  “ 

This  package  exports  operations  on  a  symmetric  full  storage  matrix. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


CAMP  Software  Detailed  Design  Document 


Page  795 


3. 3. 6. 2. 9. 5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R227. 


3. 3. 6. 2. 9. 5. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 2. 9. 5. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  at  the  package 
specification  level: 

Data  types: 


|  Name 

1  Type 

|  Description  | 

|  Elements 

1 

|  Collndices 
j  Row_Indices 

|  floating 
j  point  type 
j  discrete  type 
j  discrete  type 

Data  type  of  elements  in  exported  matrix 
type 

Used  to  dimension  exported  matrix  type 

Used  to  dimension  exported  matrix  type 

3. 3. 6. 2. 9. 5. 4 

LOCAL  DATA 

Exceptions: 

The  following  table  describes  the  exceptions  defined  in  this  part's  package 
specification: 

|  Name 

|  Description 

1 

|  Invalid  Index 

1 

|  Indicates  an  attempt  was  made  to  access  an  element  beyond  j 
j  the  dimensions  of  the  array  i 

Data  types: 

The  following  types  are  previously  defined  in  this  part's  package 
specification: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  | 

j  array  of  Elements 
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3. 3. 6. 2. 9. 5. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 2. 9. 5. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Vector_Matrix_Algebra) 

package  body  Symmetric_Full_Storage_Matrix_Operations_Unconstrained  is 
end  Symmetric_Full_Storage_Matrix_Operations_Unconstrained; 


3. 3. 6. 2. 9. 5. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 2. 9. 5. 8  LIMITATIONS 


None. 


3. 3. 6. 2. 9. 5. 9  LLCSC  DESIGN 


None. 


3.3.6.2.9.5.10  UNIT  DESIGN 

3.3.6.2.9.5.10.1  CHANGEELEMENT  UNIT  DESIGN  (CATALOG  #P391-0) 

This  procedure  changes  the  indicated  element  of  a  symmetric  matrix,  along  with 
its  symmetric  counterpart. 


3.3.6.2.9.5.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R227. 


3.3.6.2.9.5.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.5.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name 

Type 

Mode 

Description  | 

|  New  Value 

Elements 

In 

New  value  to  be  placed  in  the  matrix  | 

j  Row 

Row  Indices 

In 

Row  in  which  the  value  belongs  j 

|  Col 

Col  Indices 

In 

Column  in  which  the  value  belongs  j 

j  Matrix 

Matrices 

In/Out 

Matrix  being  updated  j 

3.3.6.2.9.5.10.1.4  LOCAL  DATA 
None. 

3.3.6.2.9.5.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.5.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 


procedure  ChangeElement  (NewValue 

:  in 

Elements; 

Row 

:  in 

Rov_Indices; 

it 

Col 

:  in 

Col_Indices; 

Matrix 

:  in  out 

Matrices)  is 

— declaration  section- 


S_Col  :  Col_Indices; 
S  Row  :  Row  Indices; 


—  — begin  procedure  Change_Element- 


begin 

— make  sure  you  have  a  square  matrix 
if  Matrix' LENGTH(l)  /=.  Matrix'LENGTH(2)  then 

raise  Dimens ion_Error; 

— make  sure  row  and  col  are  within  bounds 
elsif  NOT  (Row  in  Matrix'RANGE(l)  and 
Col  in  Matrix'RANGE(2))  then 

raise  Invalid_Index; 

else 

— everything  is  okay 
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S_Col  :=  Col_Indices' VAL(Rov_Indices'  POS(Row)  - 

Rov_Indices ' POS(Matrix' FIRST( 1 ) )  + 
Col_Indices'  POS(Matrix' FIRST(2) ) ) ; 

S_Row  :=  Row_Indices'VAL(Col  Indices' POS(Col)  - 

Col“lndices'P0S(Matrix'FIRST(2))  + 
Row_Indices' POS(Matrix'FIRST(l) )) ; 

Matrix(Row,  Col)  :=  Nev_Value; 

Matrix(S_Row,  S_Col)  :  =  New_Value; 

end  if; 

end  ChangeElement; 


3.3.6.2.9.5.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
OperationsUncons trained: 


|  Name  |  Type  j  Description 


|  Elements 

|  floating 

Data 

type  of  elements  in  exported  matrix  1 

i  point  type 

type 

1 

|  Col  Indices 

j  discrete  type 

Used 

to  dimension  exported 

matrix 

type 

j  Row  Indices 

j  discrete  type 

Used 

to  dimension  exported 

4 

matrix 

type  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symme tric_Full_S tor age_Matrix_Ope rati ons_- 
Uncons trained: 


|  Name 

1  Range 

|  Description  | 

|  Matrices 

1 

|  N/A 

1 

|  Unconstrained,  two-dimensional  | 

j  array  of  Elements 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  body  of  Symmetric_Full_Storage_Matrix_Operations_Unconstrained: 
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|  Name  | 

Description  | 

|  Invalid  Index  | 

1  ”  1 

Indicates  an  attempt  was  made  to  access  an  element  beyond  | 
the  dimensions  of  the  array  j 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name  |  Description  | 


|  Dimension_Error  |  Raised  by  a  routine  or  package  when  input  received  has 
j  j  dimensions  incompatible  with  the  type  of  operation  to 
j  j  be  performed 


3.3.6.2.9.5.10.1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  |  Vhen/Vhy  Raised 


|  Invalid_Index  |  Raised  if  an  attempt  is  made  to  place  an  element  outside 
j  the  bounds  of  the  input  array 

j  Dimension_  j  Raised  if  the  input  matrix  is  not  a  square  matrix 
j  Error  j 


3.3.6.2.9.5.10.2  SET  TO  IDENTITY  MATRIX  UNIT  DESIGN  (CATALOG  #P392-0) 

This  procedure  turns  an  input  matrix  into  an  identity  matrix.  An  identity 
matrix  is  one  where  all  elements  equal  0.0,  except  those  on  the  diagonal  which 
equal  1.0.  The  input  matrix  must  be  a  square  matrix,  but  the  ranges  of  the 
individual  dimensions  do  not  have  to  be  the  same. 


3.3.6.2.9.5.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R227. 


3.3.6.2.9.5.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.5.10.2.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 
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The  following  table  describes  this  part's  formal  parameters: 


j  Name 

Type 

Mode 

|  Description  | 

|  Matrix 

Matrices 

Out 

|  Matrix  to  be  made  into  an  identity  matrix  | 

3.3.6.2.9.5.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

Value 

|  Description 

1 

|  Col 

1 

|  Col  Indices 

1  ‘ 

N/A 

|  Index  into  second  dimension  of 
1  matrix 

input 

1 

|  Row 

1 

j  Row  Indices 

1  " 

N/A 

j  Index  into  first  dimension  of 
j  matrix 

inut  j 

1 

3.3.6.2.9.5.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.5.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Identity  Matrix  (Matrix  :  out  Matrices)  is 

—  — declaration  section¬ 
ed  :  Col_Indices; 

Row  :  Row_Indices; 

—  — begin  procedure  Set_to_Identity- 
begin 

— make  sure  input  matrix  is  a  square  matrix 
if  Matrix' LENGTH(l)  =  Matrix'LENGTH(2)  then 

Matrix  :*  (others  =>  (others  =>  0.0)); 

Row  :=  Matrix' FIRST(l); 

Col  :=  Matrix' FIRST(2); 
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Row  Loop: 
loop 

— set  diagonal  element  equal  to 
Matrix(Row,  Col)  :=  1.0; 

exit  Row_Loop  when  Row  *  Matrix'LAST(l) ; 
Row  :=  Row  Indices' SUCC(Row) ; 

Col  :=  Col “Indices' SUCC(Col); 

end  loop  Row_Loop; 


else 

— do  not  have  a  square  matrix 
raise  Dimension_Error; 

end  if; 

end  Set_To_Identity_Matrix; 


3.3.6.2.9.5.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Opera  t  i  ons_Uncons  t  rained : 


|  Name 

1  Type 

Description 

1 

|  Elements 

|  floating 

Data  type  of  elements  in  exported 

matrix  | 

|  point  type 

type 

1 

|  Col  Indices 

j  discrete  type 

Used  to  dimension  exported  matrix 

type 

|  Row_Indices 

j  discrete  type 

Used  to  dimension  exported  matrix 

type  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_Operations_- 
Unconstrained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  | 

j  array  of  Elements  j 
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Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name 

|  Description  | 

|  Dimension  Error 

1 

1 

|  Raised  by  a  routine  when  input  received  has  | 
dimensions  incompatible  for  the  type  of  j 

1  operation  to  be  performed  j 

3.3.6.2.9.5.10.2.8 

LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name 

|  Uhen/Why  Raised  | 

|  Dimension  Error 

|  Raised  if  input  matrix  is  a  square  matrix  | 

3.3.6.2.9.5.10.3  SET  TO  ZERO  MATRIX  UNIT  DESIGN  (CATALOG  #P393-0) 
This  procedure  zeros  out  all  elements  of  an  input  matrix. 

3.3.6.2.9.5.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R227. 

3.3.6.2.9.5.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.5.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

|  Mode 

|  Description  | 

|  Matrix 

Matrices 

|  Out 

|  Matrix  to  be  zeroed  out  | 
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3.3.6.2.9.5.10.3.4  LOCAL  DATA 


None . 


3.3.6.2.9.5.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.5.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices)  is 
begin 

Matrix  :=  (others  ■>  (others  »>  0.0)); 
end  Set  To  Zero  Matrix; 


3.3.6.2.9.5.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summar  zes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Operat ions_Uncons t rained : 


j  Name 


|  Elements 

|  Col_Indices 
j  Row_Indices 


Type  |  Description 


floating  |  Data  type  of  elements  in  exported  matrix 

pnint  type  j  type 

discrete  type  j  Used  to  dimension  exported  matrix  type 
discrete  type  j  Used  to  dimension  exported  matrix  type 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_Operations_- 
Uncons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

j  Unconstrained,  two-dimensional 
j  array  of  Elements  j 
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3.3.6.2.9.5.10.3.8  LIMITATIONS 


None. 


3.3.6.2.9.5.10.4  ADD_TO_IDENTITY  UNIT  DESIGN  (CATALOG  #P394-0) 

This  function  adds  an  input  matrix  to  an  identity  matrix,  returning  the 
resultant  matrix.  The  addition  is  performed  by  adding  1.0  to  each  diagonal 
element  of  the  input  matrix. 


3.3.6.2.9.5.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R227. 


3.3.6.2.9.5.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.5.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

|  Matrices 

In 

|  Matrix  to  be  added  to  an  identity  matrix  | 

3.3.6.2.9.5.10.4.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  Matrices 

|  N/A 

|  Result  of  adding  identity  matrix  to  input  | 

1 

1 

1 

matrix 

|  Col 

j  Col  Indices 

j  N/A 

j  Index  into  second  dimension  of  matrices  j 

j  Row 

|  Row  Indices 

j  N/A 

j  Index  into  first  dimension  of  matrices 

3.3.6.2.9.5.10.4.5  PROCESS  CONTROL 
Not  applicable. 


< 
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3.3.6.2.9.5.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Add  to  Identity  (Input  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices(Input'RANGE(l) ,  Input'RANGE(2)); 

Col  :  Col_Indices; 

Row  :  Row  Indices; 


—  — begin  function  Add_to_Identity 


begin 

— make  sure  input  matrix  is  a  square  matrix 
if  Input 'LENGTH(l)  -  Input'LENGTH(2)  then 

Answer  Input; 

Row  Input 'FIRST(l); 

Col  Input 'FIRST(2); 

Access_Diagonal_Elements : 
loop 

Answer(Row,Col)  Answer (Row, Col)  +  1.0; 

exit  Access_Diagonal  Elements  when  Row  -  Input 'LAST(l); 
Row  :»  Row_Indices'SUCC(Row); 

Col  :■  Col_Indices'SUCC(Col) ; 

end  loop  Access_Diagonal_Elements; 


else 

— do  not  have  a  square  matrix 
raise  Dimension_Error; 

end  if; 

return  Answer; 
end  Add  to  Identity; 


3.3.6.2.9.5.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 
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Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Opera t ions_Uncons  t  rained : 


|  Name 


I  Type 


Description 


|  Elements 

|  floating 

Data 

type  of  elements  in  exported  matrix  | 

|  point  type 

type 

1 

|  Col  Indices 

j  discrete  type 

Used 

to 

dimension  exported  matrix 

type  | 

j  Row  Indices 

j  discrete  type 

Used 

to 

dimension  exported  matrix 

type  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_Operations_- 
Unconstrained: 


|  Name 

|  Range 

|  Description  | 

|  Matrices 

1 

|  N/A 

1 

|  Unconstrained,  two-dimensional 
array  of  Elements 

Exceptions: 

The  following  .table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  GeneralVectorMatrixAlgebra: 


|  Name  | 

Description  | 

|  Dimension  Error  | 

1  '  ! 

1  1 

Raised  by  a  routine  when  input  received  has  | 
dimensions  incompatible  for  the  type  of  ! 

operation  to  be  performed  j 

3.3.6.2.9.5.10.4.8 

LIMITATIONS 

The  following  table 

describes  the  exceptions  raised  by  this  part: 

|  Name  | 

Vhen/Vhy  Raised  | 

|  Dimension  Error  | 

Raised  if  input  matrix  is  not  a  square  matrix  | 

3.3.6.2.9.5.10.5  SUBTRACT_FROM_IDENTITY  UNIT  DESIGN  (CATALOG  #P395-0) 

This  function  subtracts  an  input  matrix  from  an  identity  matrix,  returning  the 
resultant  matrix. 
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3.3.6.2.9.5.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R227. 

3.3.6.2.9.5.10.5.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.5.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

1 

|  Matrices 

1 

In 

|  Matrix  to  be  subtracted  from  an  identity  | 

j  matrix  j 

3.3.6.2.9.5.10.5.4  LOCAL  DATA 


Data  .objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

Description  | 

|  Answer 

1 

Matrices 

|  N/A 

1 

Result  of  subtracting  input  matrix 
from  an  identity  matrix 

j  Col 

1 

Col  Indices 

j  N/A 

1 

Used  to  index  second  dimension  of 
matrices 

|  Col_Count 

1 

1 

POSITIVE 

j  N/A 

i 

! 

1 

Used  to  count  the  number  of  columns 
accessed;  needed  to  determine  when 
the  diagonal  element  has  been 
reached 

j  Row 

1 

Row_Indices 

j  N/A 

1 

Used  to  index  second  dimension  of 
matrices 

|  Row_Count 

1 

POSITIVE 

j  N/A 

1 

1 

Used  to  count  the  number  of  rows 
accessed;  when  Col_Count  equals  this 
the  diagonal  element  has  been 
reached 

j  S_Col 

1 

Col_Indices 

j  N/A 

1 

Used  to  mark  the  column  containing 
the  diagonal  element  for  the  current 
row 

1  S  Row 

1 

1 

Row  Indices 

j  N/A 

1 

: 

1 

Used  in  conjunction  with  S_Col  to 
locate  the  symmetric  counterpart  to 
the  element  being  referenced  in  the 
bottom  half  of  the  matrix 
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3.3.6.2.9.5.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.5.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  parts 

function  Subtract_from_Identity  (Input  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer 

Col 

Col_Count 

Row 

RowCount 
SCol 
S  Row 


Mat rices (Input 'RANGE(l) ,  Input ' RANGE(2) ) ; 
Col_Indices; 

POSITIVE; 

Row_Indices; 

POSITIVE; 

Col_Indices; 

Row  Indices; 


- begin  function  Sub tract  from  Identity 


begin 

— make  sure  input  matrix  is  a  square  matrix 
if  Input 'LENGTH(l)  -  Input 'LENGTH<2)  then 

— will  subtract  input  matrix  from  an  identity  matrix  by  first 
— subtracting  all  elements  from  0.0  and  then  adding  1.0  to  the 
— diagonal  elements; 

— when  doing  the  subtraction,  will  only  calculate  the  remainder 
— for  the  elements  in  the  bottom  half  of  the  matrix  and  will  simply 
— do  assignments  for  the  symmetric  elements  in  the  top  half  of  the 
— matrix 

Row_Count  : -  1; 

— S  Col  will  go  across  the  columns  as  Row  goes  down  the  rows; 

— will  mark  column  containing  the  diagonal  element  for  this  row 
Row  Input 'FIRST(l); 

SCol  Input 'FIRST(2); 

Do_Every_Row: 

loop 

Col_Count  :=  1; 

— S  Row  will  go  down  the  rows  as  Col  goes  across  the  columns; 
— wEen  paired  with  S_Col  will  mark  the  symmetric  counterpart 
— to  the  element  being  referenced  in  the  bottom  half  of  the 
— matrix 

Col  :=  Input 'FIRST(2>; 

S_Row  :=  Input' FIRST(l); 
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Subtract_Elements  From_Zero: 
loop 

— perform  subtraction  on  element  in  bottom  half  of  matrix 
Answer (Row, Col)  :=  -  Input(Row,Col) ; 

— exit  loop  after  diagonal  element  has  been  reached 
exit  Subtract_Elements_From_Zero  when  Col_Count  = 

Row_Count; 

— assign  values  to  symmetric  elements  in  top  half  of  matrix 
— (done  after  check  for  diagonal,  since  diagonal  elements 
—  don't  have  a  symmetric  counterpart) 

Answer(S_Row,S_Col)  :«  Answer(Row,Col) ; 

— increment  variables 
Col_Count  :«  Col  Count  +  1; 

Col  Col~Indices' SUCC(Col) ; 

S_Rov  :«  Row_Indices'SUCC(S_Row); 

end  loop  Subtract_Elements_From_Zero; 

— add  one  to  the  diagonal  element 
Ansver(Rov,  Col)  :«  Answer(Row,  S_Col)  +  1.0; 

exit  Do_Every_Rov  when  Row_Count  -  Input 'LENGTH(l); 

Rov_Count  :«  Rov_Count  +1; 

Row  :»  Row_Indices' SUCC(Row) ; 

SCol  s-  Col_Indices' SUCC(S_Col) ; 

end  loop  Do_Every_Row; 


else 

raise  Dimension_Error; 
end  if; 

return  Answer; 
end  Subtract  from  Identity; 


3.3.6.2.9.5.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 


UTILIZATION  OF  ANCESTRAL  ELEMENTS: 


The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 


Data  types: 


The  following  table  summarizes  the  generic 
defined  at  the  package  specification  level 
Operations  Unconstrained: 


types  visible  to  this  part  and 
of  Symmetric_Full_Storage_Matrix_  - 
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|  Name  |  Type  |  Description 


|  Elements  |  floating  |  Data  type  of  elements  in  exported  matrix 

j  j  point  type  j  type 

j  Col_Indices  |  discrete  type  j  Used  to  dimension  exported  matrix  type 

j  Rov_Indices  j  discrete  type  |  Used  to  dimension  exported  matrix  type 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_Operations_- 
Uncons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional 
j  array  of  Elements 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name  | 

Description  | 

|  Dimension  Error  | 

1 

1  1 

Raised  by  a  routine  when  input  received  has 
dimensions  incompatible  for  the  type  of 
operation  to  be  performed 

3.3.6.2.9.5.10.5.8 

LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  | 

Vhen/Vhy  Raised  | 

|  Dimension_Error  | 

Raised  if  input  matrix  is  not  a  square  matrix  | 

3.3.6.2.9.5.10.6  "+"  UNIT  DESIGN  (CATALOG  IP396-0) 

This  function  adds  two  symmetric  matrices  by  adding  the  individual  elements  of 
the  input  matrices,  taking  advantage  of  their  symmetricity. 


3.3.6.2.9.5.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R227. 
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3.3.6.2.9.5.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.5.10.6.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode  | 

Description 

1 

|  Left 

|  Matrices 

1  In  | 

First  matrix 

to  be  added  | 

1  Right 

j  Matrices 

1  In  | 

Second  matrix 

to  be  added  j 

3.3.6.2.9.5.10.6.4 

LOCAL  DATA 

Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


1 

Name 

1  Type 

Value 

|  Description  | 

1 

Answer 

Matrices 

N/A 

|  Result  of  adding  input  matrices 

1 

Row  Count, 

Positive 

N/A 

j  Used  to  keep  track  of  the  number  of 

1 

Col  Count 

!  rows  and  columns  which  have  been 

1 

i  handled 

1 

L  Col 

Col  Indices 

N/A 

j  Column  index  into  left  matrix 

1 

L  Row 

Row  Indices 

N/A 

j  Row  index  into  left  matrix 

1 

R  Col 

Col  Indices 

N/A 

j  Column  index  into  right  matrix 

1 

R  Row 

Row  Indices 

N/A 

j  Row  index  into  right  matrix 

1 

S  Col 

Col  Indices 

N/A 

j  New  column  index  after  row  and  column 

!  have  been  swapped, 

1 

1  i-e.  <i,j)  ->  (j,i) 

1 

S  Row 

Row  Indices 

N/A 

|  New  row  index  after  row  and  column 

1 

|  have  been  swapped 

3.3.6.2.9.5.10.6.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.5.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  ”+"  (Left  :  Matrices*, 

Right  :  Matrices)  return  Matrices  is 
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— declaration  section 


Answer 

Ma trices ( Lef t'RANGE(l),  Lef t'RANGE(2)) ; 

Col  Count 

POSITIVE; 

Row  Count 

POSITIVE; 

L_Col 

Col  Indices; 

L  Row 

Row_Indices; 

RCol 

Col_Indices; 

R  Row 

Row^Indices; 

SCol 

Col_Indices; 

S  Row 

Row  Indices; 

—  — begin  function  "+" 


begin 

— make  sure  both  input  matrices  are  square  matrices  of  the  same  size 
if  Left'LENGTH(l)  -  Lef t ' LENGTH(2)  and 
Left'LENGTH(l)  =  Right' LENGTH* 1)  and 
Right' LENGTH* 1)  -  Right' LENGTH(2)  then 

— addition  calculations  will  only  be  carried  out  on  the  bottom  half 
— of  the  input  matrices  followed  by  assignments  to  the  symmetric 
—elements  in  the  top  half  of  the  matrix 

Rov_Count  lj 

— as  L_Row  goes  down  the  rows,  S_Col  will  go  across  the  columns 
LRow  "  Lef t'FIRST(l); 

SCol  s-  Left'FIRST(2); 

R  Row  :=.  Right 'FIRST(l)j 

Do_All_Rows: 
loop 

Col_Count  1; 

— as  L  Col  goes  across  the  columns,  S_Row  will  go  down  the  rows 
L_Col  7-  Lef t'FIRST(2); 

S_Row  Left'FIRST(l); 

R  Col  Right 'FIRST(2); 

A<Jd  Bottom_Half_Eleraents! 
loop 

Answer (L_Rov,L_Col)  : =•  Left(L_Row,  L_Col)  + 

Right(R_Row,  R_Col); 

— exit  when  diagonal  element  has  been  reached 

exit  Add_Bottom_Half_Elements  when  Col_Count  ■  Row_Count; 

— assign  value  to  symmetric  element  in  top  half  of  matrix 
— (do  this  after  exit  since  diagonal  elements  don't  have 
—  a  corresponding  symmetric  element) 
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Answer ( S_Row, S_Col/  :=  Answer ( L_Row, L_Col)  ; 

— increment  values 
Col_Count  :=  Col_Count  +  1; 

L_Col  :=  Co l_Ind ices' SUCC(L_Col) ; 

S~Row  :=  Row_Ind ices' SUCC(S_Row) ; 

R_Col  :=  Col_Indices ' SUCC(R_Col) ; 

end  loop  Add_Bottom_Half_Elements; 

exit  Do_All_Rows  when  Row  Count  -  Lef t' LENGTH(l) ; 
Row_Count  :*  Row_Count  +  T; 

L_Row  :=  Row_Indices' SUCC(L_Row) ; 

S_Col  :=  Col_Indices'SUCC(S_Col); 

R_Row  :=  Row_Indices'SUCC(R~Row); 

end  loop  Do  All_Rows; 


else 

raise  Dimension_Error; 
end  if; 

return  Answer; 
end  "+"; 


3.3.6.2.9.5.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Opera  t ions_Uncons  t  rained : 


|  Name  |  Type  |  Description 


|  Elements 

|  floating 

Data 

type  of  elements  in  exported  matrix  { 

1 

|  point  type 

type 

|  Col  Indices 

|  discrete  type 

Used 

to  dimension  exported  matrix 

type  i 

j  Row  Indices 

|  discrete  type 

Used 

to  dimension  exported  matrix 

type  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_Operations_- 
Unconstrained: 
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|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  | 

|  array  of  Elements  j 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name  j 

Description  | 

|  Dimension  Error  | 

1  "  1 

1  1 

Raised  by  a  routine  when  input  received  has  | 
dimensions  incompatible  for  the  type  of  j 

operation  to  be  performed  | 

3.3.6.2.9.5.10.6.8 

LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  | 

When/Why  Raised  | 

|  Dimension_Error  | 

Raised  if  input  matrices  are  not  both  m  x  m  matrices  | 

3.3.6.2.9.5.10.7  UNIT  DESIGN  (CATALOG  IP397-0) 

This  function  subtracts  two  symmetric  input  matrices  by  subtracting  the 
individual  elements  of  the  input  matrices,  taking  advantage  of  their 
symmetricity. 


3.3.6.2.9.5.10.7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R227. 


3.3.6.2.9.5.10.7.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.5.10.7.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name 

1  Type 

Mode 

|  Description 

1 

|  Left 

|  Matrices 

In 

|  Matrix  to  be 

subtracted 

from  | 

1  Right 

|  Matrices 

In 

|  Matrix  to  be 

used  as  the 

subtrahend  j 

3.3.6.2.9.5.10.7.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


Name 

1  Type 

Value 

|  Description 

Answer 

Matrices 

N/A 

|  Result  of  adding  input  matrices 

Row  Count, 

Positive 

N/A 

j  Used  to  keep  track  of  the  number  of 

CoT  Count 

j  rows  and  columns  which  have  been 

j  handled 

L  Col 

Col  Indices 

N/A 

j  Column  index  into  left  matrix 

L  Row 

Row  Indices 

N/A 

j  Row  index  into  left  matrix 

R  Col 

Col  Indices 

N/A 

j  Column  index  into  right  matrix 

R  Row 

Row  Indices 

N/A 

j  Row  index  into  right  matrix 

S  Col 

Col  Indices 

N/A 

j  Nev  column  index  after  rov  and  column 

!  have  been  swapped, 

|  i.e.  (i,j)  ->  (j,i) 

S  Row 

Row  Indices 

N/A 

j  New  row  index  after  row  and  column 

j  have  been  swapped 

3.3.6.2.9.5.10.7.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.5.10.7.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 

— declaration  section 


Answer 
Col_Count 
Row_Coun  t 
L_Col 
L_Row 
RCol 
R_Row 
S  Col 


Matrices(Left'RANGE(l),  Lef t'RANGE(2)); 
POSITIVE; 

POSITIVE; 

Col_Indices; 

Row~Indices; 

Col_Indices; 

Row_Indices; 

Col  Indices; 
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S  Row  :  Row  Indices; 


—  — begin  function  "+" 


begin 

— make  sure  both  input  matrices  are  square  matrices  of  the  same  size 
if  Lef t'LENGTH(l)  =  Lef t'LENGTH(2)  and 
Lef t'LENGTH(l)  =  Right 'LENGTH(l)  and 
Right 'LENGTH(l)  *  Right' LENGTH(2)  then 

— addition  calculations  will  only  be  carried  out  on  the  bottom  half 
— of  the  input  matrices  followed  by  assignments  to  the  symmetric 
— elements  in  the  top  half  of  the  matrix 

Row_Count  1; 

— as  L_Row  goes  down  the  rows,  S_Col  will  go  across  the  columns 
L_Row  :=  Left'FIRST(l); 

SCol  Lef t'FIRST(2) ; 

RRow  :«  Right 'FIRST(l); 

Do_All_Rows : 
loop 

ColCount  s-  1; 

— as  L_Col  goes  across  the  columns,  S_Rov  will  go  down  the  rows 
LCol  7-  Lef t' FIRST(2) ; 

SRow  Left'FIRST(l); 

R  Col  Right 'FIRST(2); 

A3d  Bottom_Half_Elements: 
loop 

Answer(L_Row,L_Col)  Left(L_Row,  L_Col)  - 

Right(R_Row,  RCol) ; 

— exit  when  diagonal  element  has  been  reached 

exit  Add_Bottom_Half_Elements  when  Col_Count  -  Row_Count; 

— assign  value  to  symmetric  element  in  top  half  of  matrix 
— (do  this  after  exit  since  diagonal  elements  don't  have 
—  a  corresponding  symmetric  element) 

Answer(S_Row,S_Col)  Answer ( L_Row, L_Col ) ; 

— increment  values 

Col  Count  :=  Col_Count  +  1; 

L_Col  :=  Col_Indices'SUCC(L_Col); 

S_Row  :=  Row  Indices' SUCC(S_Row); 

R_Col  Col“lndices'SUCC(R_Col); 

end  loop  Add_Bottom_Half_Elements; 

exit  Do  All  Rows  when  Row  Count  ■  Left'LENGTH(l) ; 
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Rov_Count  :=  Rov_Count  +  1; 

L_Rov  :=  Row_Indices' SUCC(L_Row) ; 

S_Col  :=  Col_Indices' SUCC(S_Col) ; 

R_Rov  :  =  Row~Indices' SUCC(R_Row) ; 

end  loop  Do_All  Rows; 


else 

raise  Dimension_Error ; 
end  if; 

return  Answer; 

end 


3.3.6.2.9.5.10.7.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Opera t i ons_Uncons t rained : 


|  Name 


I  Type 


Description 


|  Elements 

|  floating 

Data 

type  of  elements  in  exported  matrix  | 

1 

j  point  type 

type 

|  Col  Indices 

j  discrete  type 

Used 

to  dimension  exported  matrix 

type 

|  Row_Indices 

|  discrete  type 

Used 

to  dimension  exported  matrix 

type 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_Operations_- 
Uncons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Unconstrained,  two-dimensional  | 

1  array  of  Elements 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vectcr_Matrix_Algebra: 
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|  Name  | 

Description 

1 

|  Dimension  Error  | 

1  1 

1  1 

Raised  by  a  routine  when  input  received  has 
dimensions  incompatible  for  the  type  of  j 

operation  to  be  performed 

3.3.6.2.9.5.10.7.8 

LIMITATIONS 

The  following  table 

describes  the  exceptions 

raised  by  this  part: 

|  Name 

|  Vhen/Vhy  Raised  | 

|  Dimension  Error 

|  Raised  if  input  matrices  are  not  both  m  x  m  matrices  | 

3. 3. 6. 2. 9. 6  DIAGONAL_MATRIX_OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P408-0) 

This  package  contains  a  set  of  functions  designed  to  operate  on  a  diagonal 
matrix. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 2. 9. 6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3. 3. 6. 2. 9. 6. 2  LOCAL  ENTITIES  DESIGN 


Subprograms: 

This  package  body  contains  a  sequence  of  statements  which  are  executed  when  it 
is  elaborated.  This  code  first  checks  to  ensure  a  square  matrix  has  been 
instantiated.  If  not,  a  Dimension_Error  exception  is  raised.  If  a  square 
matrix  has  been  instantiated,  then  the  Row_Marker  and  Col_Marker  arrays  are 
initialized. 


3. 3. 6. 2. 9. 6. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  are  defined  in  this  part's  package 
specification: 


Data  types: 
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|  Name 

1  Type 

|  Description  | 

|  Elements 

I 

|  Col  Indices 

j  Row  Indices 

j  Col  Slices 
j  Row  Slices 

|  floating 
j  point  type 
j  discrete 

1  type 

j  discrete 
!  type 
j  array 
j  array 

|  Data  type  of  elements  in  the  exported  matrix  | 

|  type,  as  well  as  the  imported  array  types  j 

j  Used  to  dimension  imported  and  exported  | 

1  arrays  | 

j  Used  to  dimension  imported  and  exported  j 

j  arrays  j 

j  One-dimensional  array  of  column  Elements  j 

j  One-dimensional  array  of  row  Elements  I 

3. 3. 6. 2. 9. 6. 4 

LOCAL  DATA 

Exceptions: 

The  following 
specification: 

table  describes 

the  exceptions  defined  by  this  part's  package 

|  Name 

|  Description  | 

|  Invalid_Index  |  Indicates  an  attempt  was  made  to  access  an  element  not  on  | 
j  j  the  diagonal  | 

Data  types: 

The  following 
specification: 

table  describes 

the  data  types  defined  in  this  part's  package 

|  Name  | 

Range 

Description  | 

|  Diagonal  j 
|  Range  j 

j  Diagonal  | 
j  Matrices  j 

1. .Entry_Count 

N/A 

Used  to  dimension  diagonal  matrices 

' 

Vector  representation  of  a  matrix  where  all 
but  the  diagonal  elements  equal  zero 

The  following  table  describes  the  data  types  defined  by  this  part: 


|  Name 

Range 

|  Description  j 

|  Row  Markers 

1  " 

N/A 

|  Array  of  pointers  into  Diagonal_  | 

j  Matrices 

|  Col  Markers 

1  " 

N/A 

j  Array  of  pointers  into  Diagonal_ 
j  Matrices  j 

Data  objects: 
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The  following  table  describes  the  data  objects  defined  in  this  part's  package 
specification: 


|  Name 

1  Type 

|  Description  | 

|  Entry  Count 

|  Positive 

|  Number  of  diagonal  elements  in  the  array  | 

The  following 

table  describes  the  data  objects  maintained  by  this  part: 

|  Name 

1 

Type  j  Description  | 

Row_Marker 

CoJ_Marker 

Row_Minus_Col_Indices 

PosFirst 

Local_Identity_Matrix 
Local  Zero  Matrix 


Row_Markers 

Col_Markers 

INTEGER 


Diagonal_ 

Matrices 

Diagonal_ 

Matrices 


Array  of  pointers  into  Diagonal_ 
Matrices 

Array  of  pointers  into  Diagonal_ 
Matrices 

Preinitialized  value  of: 
Row_Indices' P0S(Rov_Indices' FIRST) 
Col^Indices ' P0S(Col_Indices ' FIRST) 
Pre-Ini tialized  identity  matrix 

Pre-initialized  zero  matrix 


The  following  table  describes  the  data  objects  contained  in  the  de'lare  block 
located  at  the  end  of  this  package  body: 


|  Name 

i  Type 

Value 

|  Description 

1 

|  Col  Count 

Positive 

N/A 

|  Counts  the  number 

of  columns 

|  Row_Count 

Positive 

N/A 

j  Counts  the  nubmer 

of  rows  j 

3. 3. 6. 2. 9. 6. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 2. 9. 6. 6  PROCESSING 

The  following  describes  the  processing  jerformed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 
package  body  Diagonal_Matrix_Opirations  is 

—  — local  declarations 


type  Col_Markers  is  array(Col_Indices)  of  POSITIVE; 
type  Row_Markers  is  array(Row_Indices)  of  POSITIVE; 
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ColMarker  :  Col_Markers; 

Rov_Marker  :  Rov_Markers; 

Row_Minus_Col_Indices_Pos_First  :  constant  INTEGER 

:=  Row_Indices'POS(Row_Indices'FIRST)  - 
Col_Indices ' POS(Col_Indices' FIRST) ; 

Local_Identi tyMatrix  s  constant  Diagonal_Matrices  :=  (others  =>  1.0); 
Local_Zero_Matrix  :  constant  Diagonal_Matrices  :=  (others  =>  0.0); 


— begin  processing  for  Diagonal 
— Matrix  Operations  package 


begin 

Init_Block: 

declare 

ColCount  :  POSITIVE; 

Rov_Count  :  POSITIVE; 

begin 

— make  sure  lengths  of  indices  are  the  same 
if  RowSl ices 'LENGTH  -  Col  Sl ices' LENGTH  then 

—initialize  row  and  column  marker  arrays 

Rov_Count  : -  1; 

Row  Inits 

lor  Row  in  Row_Indices  loop 

Row_Marker(Row)  :«  Row_Count; 
Row_Count  :  =*  Row_Count  +  1; 

end  loop  Row_Init; 

Col_Count  :=  1; 

Col  Init: 

lor  Col  in  Col_Indices  loop 

Col_Marker(Col)  Col_Count; 
Col_Count  :■  Col~Count  +  1; 

end  loop  Col  Init; 


else 

raise  Dimension_Error; 
end  if; 

end  Init  Block; 


end  Diagonal_Matrix_Operations; 
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3. 3. 6. 2. 9. 6. 7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name  |  Description  | 


|  Dimension_Error  j  Raised  by  a  routine  when  input  received  has  ! 

j  dimensions  incompatible  for  the  type  of 
j  j  operation  to  be  performed 


3. 3. 6. 2. 9. 6. 8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  When/ Why  Raised  | 

|  Dimension  Error 

1  “  1 

|  Raised  if  the  lengths  of  Rov_Indices  and  Col_Indices  are  | 
j  not  the  same  j 

3. 3. 6. 2. 9. 6. 9  LLCSC  DESIGN 


None. 


3.3.6.2.9.6.10  UNIT  DESIGN 

3.3.6.2.9.6.10.1  IDENTITY_MATRIX  UNIT  DESIGN  (CATALOG  #P409-0) 

This  function  returns  a  diagonal  matrix  which  has  been  set  to  an  identity 
matrix.  An  identity  matrix  is  one  where  all  the  elements  equal  0.0,  except  for 
the  diagonal  elements  which  equal  1.0. 


3.3.6.2.9.6.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.3.6.2.9.6.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.2.9.6.10.1.3  INPUT/OUTPUT 


None. 


3.3.6.2.9.6.10.1.4  LOCAL  DATA 


None. 


3.3.6.2.9.6.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.6.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Identity_Matrix  return  Diagonal_Matrices  is 
begin 

return  Local_Identity_Matrix; 
end  IdentityMatrix; 

3.3.6.2.9.6.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

4 

The  following  generic  data  types  are  visible  to  this  part  and  defined  at  the 
package  specification  level  of  Diagonal_Matrix_Operations: 


|  Name 

1  Type 

1 

Description 

|  Elements 

|  floating 

1 

Data  type  of  elements  in  the  exported  matrix 

j  point  type 

1 

type,  as  well  as  the  imported  array  types 

j  Col  Indices 

j  discrete 

1 

Used  to  dimension  imported  and  exported 

1  type 

1 

arrays 

j  Row  Indices 

j  discrete 

Used  to  dimension  imported  and  exported 

1  type 

1 

arrays 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 


CAMP  Software  Detailed  Design  Document 


Page  824 


|  Name 

|  Range 

|  Description 

I 

|  Diagonal 

|  1. .Entry  Count 

|  Used  to  dimension  diagonal 

matrices 

I  Range 

1 

1 

|  Diagonal 

j  N/A 

|  Vector  representation  of  a 

matrix  where  all  | 

j  Matrices 

1 

but  the  diagonal  elements 

equal  zero  j 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Diagcnal_Matrix_Operations: 


|  Name  |  Type  |  Description 

|  Local_Identity_Matrix  |  Diagonal  |  Pre-initialized  identity  matrix 
i  j  Matrices  j 


3.3.6.2.9.6.10.1.8  LIMITATIONS 


None. 


3.3.6.2.9.6.10.2  ZEROMATRIX  UNIT  DESIGN  (CATALOG  #P410-0) 

This  function  returns  a  diagonal  matrix  which  has  been  set  to  a  zero  matrix. 


3.3.6.2.9.6.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.3.6.2.9.6.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.6.10.2.3  INPUT/OUTPUT 


None. 


3.3.6.2.9.6.10.2.4  LOCAL  DATA 


None. 


3.3.6.2.9.6.10.2.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.6.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  ZeroMatrix  return  Diagonal_Matrices  is 
begin 

return  Local_Zero_Matrix; 
end  Zero_Matrix; 

3.3.6.2.9.6.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  generic  data  types  are  visible  to  this  part  and  defined  at  the 
package  specification  level  of  Diagonal_Matrix_Operations: 


Description 


floating  |  Data  type  of  elements  in  the  exported  matrix 
point  type  j  type,  as  veil  as  the  imported  array  types 
discrete  j  Used  to  dimension  imported  and  exported 

type  j  arrays 

discrete  j  Used  to  dimension  imported  and  exported 

type  |  arrays 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 


|  Name  |  Range  |  Description  | 


|  Diagonal  |  1. .Entry _Count  |  Used  to  dimension  diagonal_matrices 
j  Range  I  ~  I 

|  Diagonal_  |  N/A  |  Vector  representation  of  a  matrix  where  all  | 

j  Matrices  |  j  but  the  diagonal  elements  equal  zero  j 


Data  objects: 

.  The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Diagonal_Matrix_Operations: 
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|  Name 

1  Type 

|  Description  | 

|  Local  Zero  Matrix 

1 

|  Diagonal_ 
j  Matrices 

|  Pre-initialized  zero  matrix  | 

1  1 

3.3.6.2.9.6.10.2.8  LIMITATIONS 


None. 


3.3.6.2.9.6.10.3  CHANGE_ELEMENT  UNIT  DESIGN  (CATALOG  #P411-0) 
This  procedure  changes  a  single  element  of  a  diagonal  matrix. 


3.3.6.2.9.6.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.3.6.2.9.6.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.6.10.3.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description 

1 

New  Value 

Elements 

In 

1  New  value  to  be  placed  in  matrix  1 

Row 

Row  Indices 

In 

|  Row  where  value  is 

to  be  placed 

Col 

Col  Indices 

In 

j  Column  vhere  value 

is  to  be  placed 

Matrix 

Diagonal 

Out 

j  Diagonal  matrix  to 

be  updated 

Matrices 

1 

3.3.6.2.9.6.10.3.4  LOCAL  DATA 


None. 


3.3.6.2.9.6.10.3.5  PROCESS  CONTROL 
Not  applicable. 


CAMP  Software  Detailed  Design  Document 


Page  827 


3.3.6.2.9.6.10.3.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 


(New  Value  : 

in 

Elements; 

Row  : 

in 

Row_Indices; 

Col  : 

in 

Col_Indices; 

Matrix  : 

out 

Diagonal  Matrices)  is 

begin 

— make  sure  element  referenced  is  on  tha  diagonal 
if  Row_Marker(Row)  =  Col_Marker(Col)  then 

Matrix(Row_Marker(Row))  :»  New_Value; 

else 

raise  Invalid_Index; 
end  if; 

end  Change_Element; 


3.3.6.2.9.6.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  generic  data  types  are  visible  to  this  part  and  defined  at  the 
package  specification  level  of  Diagonal_Matrix_Operations: 


1 

Name 

1  Type 

1 

Description  | 

I 

Elements 

|  floating 

T 

Data  type  of  elements  in  the  exported  matrix 

j  point  type 

type,  as  well  as  the  imported  array  types 

1 

Col_Indices 

j  discrete 

Used  to  dimension  imported  and  exported 

1 

1  type 

i 

arrays 

1 

Row  Indices 

j  discrete 

! 

Used  to  dimension  imported  and  exported 

1 

j  type 

1 

arrays 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 
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|  Name 

Range 

Description 

I 

|  Diagonal_ 
j  Range 
j  Diagonal_ 
j  Matrices 

1.. Entry  Count 

N/A 

Used  to  dimension  diagonal 

Vector  representation  of  a 
but  the  diagonal  elements 

matrices 

' 

matrix  where  all  | 
equal  zero  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  body  of  Diagonal_Matrix_Operations: 


|  Name 

Range 

|  Description 

1 

|  Row  Markers 

N/A 

|  Array  of  pointers 

into  Diagonal  | 

1 

j  Matrices 

j  Col  Markers 

N/A 

j  Array  of  pointers 

into  Diagonal  i 

1 

j  Matrices 

1 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Diagonal_Matrix_Operations: 


|  Name 

1  Type 

Description 

1 

|  Row  Marker 

|  Row  Markers 

Array  of  pointers 

into  Diagonal 

' 

1 

Matrices 

|  Col  Marker 

|  Col  Markers 

Array  of  pointers 

into  Diagonal 

1 

1 

Matrices 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Diagonal_Matrix_Operations: 


|  Name  | 

Description 

1 

|  Invalid  Index  j 

Indicates  an  attempt  was  made  to  access  an 

element  not  on  | 

1  '  1 

the  diagonal 

1 

3.3.6.2.9.6.10.3.8  LIMITATIONS 

The  following  table  describes  the  exceptions 

raised  by  this 

part: 

|  Name 

|  When/Why  Raised 

1 

|  Invalid  Index 

|  Raised  if  in  Row  and  Col 

indices  do  not 

fall  on  the  | 

1 

|  diagonal 

1 
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3.3.6.2.9.6.10.4  RETRIEVE_ELEMENT  UNIT  DESIGN  (CATALOG  #P412-0) 
This  function  returns  an  element  contained  in  a  diagonal  matrix. 


3.3.6.2.9.6.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requiren  mt  R212. 


3.3.6.2.9.6.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3,6.2.9.6.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

|  Mode 

[  Description  | 

|  Matrix 

|  Diagonal_ 
j  Matrices 

In 

Diagonal  matrix  containing  element  desired 

|  Row 

|  Row  Indices  | 

In 

Row  containing  element  desired 

|  Col 

j  Col_Indices  j 

In  | 

Column  containing  element  desired 

3.3.6.2.9.6.10.4.4  LOCAL  DATA 


None. 


3.3.6.2.9.6.10.4.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.6.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Retrieve_Element  (Matrix  :  Diagonal_Matrices; 

Row  :  Rov_Indices; 

Col  :  Col  Indices)  return  Elements  is 


begin 

— make  sure  (row, col)  falls  on  the  diagonal 
if  Row_Marker(Rov)  /»  Col_Marker(Col)  then 
raise  Invalid_Index; 
end  if; 

return  Matrix(Row_Marker(Row)); 
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end  Retrieve_Element ; 

3.3.6.2.9.6.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  generic  data  types  are  visible  to  this  part  and  defined  at  the 
package  specification  level  of  Diagonal_Matrix_Operations: 


Name 


I  Type 


Description 


1 

Elements 

|  floating 

1 

1 

j  point  type 

1 

1 

Col  Indices 

j  discrete 

type 

1 

1 

Row_Indices 

|  discrete 

1 

1 

i  type 

1 

Data  type  of  elements  in  the  exported  matrix 
type,  as  well  as  the  imported  array  types 
Used  to  dimension  imported  and  exported 
arrays 

Used  to  dimension  imported  and  exported 
arrays 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  DiagonalMatrixOperations: 


|  Name  | 

|  Range 

|  Description  | 

Diagonal_ 

Range 

|  1. .Entry_Count 

|  Used  to  dimension  diagonal  matrices 

1  "  1 

Diagonal_ 
Matrices  j 

|  N/A 

|  Vector  representation  of  a  matrix  where  all  | 

j  but  the  diagonal  elements  equal  zero  j 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  body  of  Diagonal_Matrix_Operations: 


|  Name 

Range 

|  Description 

1 

|  Row  Markers 

N/A 

|  Array  of  pointers 

into  Diagonal  j 

1 

I  Matrices 

1 

|  Col  Markers 

N/A 

j  Array  of  pointers 

into  Diagonal 

1 

j  Matrices 

1 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Diagonal_Matrix_Operations: 
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|  Name 

1  Type 

|  Description  | 

|  Row  Marker 

1 

|  Col  Marker 

1  " 

|  Row  Markers 
!  " 

|  Col  Markers 

1  ~ 

|  Array  of  pointers  into  Diagonal  | 

|  Matrices  i 
j  Array  of  pointers  into  Diagonal  j 
j  Matrices  | 

3.3.6.2.9.6.10.4.8 

LIMITATIONS 

The  following  table 

describes  the  exceptions  raised  by  this  part: 

|  Name  | 

When/ Why  Raised 

1 

|  Invalid  Index  | 

Raised  if  Rov  and 

Col  indices  do  not  fall  on  the  diagonal! 

3.3.6.2.9.6.10.5  ROWSLICE  UNIT  DESIGN  (CATALOG  #P413-0) 

This  function  returns  a  rov  of  values  from  a  diagonal  matrix. 

3.3.6.2.9.6.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  retirement  R212. 

3.3.6.2.9.6.10.5.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.6.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  N’me 

1  Type 

|  Mode 

|  Description 

|  Matrix 

|  Diagonal_ 

1  In 

|  Diagonal  matrix  containing  rov  desired 

!  S 

Matrices 

1 

1 

j  Row 

j  Rov  Indices 

1  In 

|  Rov  desired 

3.3.6.2.9.6.10.5.4  LOCAL  DATA 
Data  objects: 
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The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

i  Value 

|  Description  | 

|  Col  Spot 

!  Col  Indices 

N/A 

|  Index  into  Answer  | 

j  Answer 

|  Row_Slices 

N/A 

|  Row  of  values  | 

3.3.6.2.9.6.10.5.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.6.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Row_Slice  (Matrix  :  Diagonal_Matrices; 

Row  :  Row  Indices)  return  Row  Slices  is 


— declaration  section 


ColSpot  :  Collndices; 
Answer  :  Row  Slices; 


—  — begin  function  Rov_Slice 


begin 

— zero  out  slice 
Answer  :=  (others  ■>  0.0); 

— insert  diagonal  element 

Col_Spot  :■  Col_Indices'VAL(Row_Indices'POS(Row)  - 

Row  Minus  Col  Indices_Pos_First); 
Answer (Col_Spot)  :«  Matrix(Row_HarkerTRowJ) ; 

return  Answer; 

end  Row  Slice; 


3.3.6.2.9.6.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 
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Data  types: 

The  following  generic  data  types  are  visible  to  this  part  and  defined  at  the 
package  specification  level  of  Diagonal_Matrix_Operations: 


|  Name  |  Type  |  Description 


Elements 
Collndices 
Rowlndices 
Row  Slices 


floating 
point  type 
discrete 
type 

discrete 

type 

array 


Data  type  of  elements  in  the  exported  matrix 
type,  as  well  as  the  imported  array  types 

Used  to  dimension  imported  and  exported 
arrays 

Used  to  dimension  imported  and  exported 
arrays 

One-dimersional  array  of  row  Elements 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 


|  Name  | 

Range 

|  Description  | 

|  Diagonal_ 

I  Range  | 

1.. Entry  Count 

1 

|  Used  to  dimension  diagonal  matrices 
! 

j  Diagonal_  i 
|  Matrices  | 

|  N/A 

|  Vector  representation  of  a  matrix  where  all 
|  but  the  diagonal  elements  equal  zero 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  body  of  Diagonal_Matrix_Operations: 


|  Name 

Range 

|  Operators 

|  Description  | 

|  Row  Markers 

1 

N/A 

|  N/A 

1 

|  Array  of  pointers  into  Diagonal_  ; 

j  Matrices  j 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Diagonal_Matrix_Operations: 


|  Name  | 

Type 

1 

Description 

|  ColMarker  | 

Col_Markers 

7 

Array  of  pointers  into  Diagonal_ 

Matrices 

j  Row_Minus_Col_Indices_j 

INTEGER 

Preinitialized  value  of: 

j  Pos_First  i 

Row  Indices' P0S(Row_Ind ices'  FIRST)  - 

1 

Col_Indices ' POS(Col_Indices '  FIRST) 
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3.3.6.2.9.6.10.5.8  LIMITATIONS 


None. 


3.3.6.2.9.6.10.6  COLUMN_SLICE  UNIT  DESIGN  (CATALOG  #P414-0) 

This  function  returns  a  column's  worth  of  values  from  a  diagonal  matrix. 


3.3.6.2.9.6.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.3.6.2.9.6.10.6.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.6.10.6.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  j 

1  Type 

|  Mode 

|  Description  | 

|  Matrix 

I  Diagonal 

1  In 

|  Diagonal  matrix  containing  desired  column 

1 

Matrices 

1  1" 

j  of  values 

1  Col  | 

|  Col_Indices 

1  In 

j  Indicates  which  column  is  desired 

3.3.6.2.9.6.10.6.4  LOCAL  DATA 

4 

Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

I  Value 

|  Description  | 

|  Answer 
j  Row_Spot 

Col_Slices 

Row_Indices 

N/A 

N/A 

|  Column  of  values  from  input  matrix 
|  Index  into  Answer  | 

3.3.6.2.9.6.10.6.5  PROCESS  CONTROL 


Not  applicable. 
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3.3.6.2.9.6.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Column_Slice  (Matrix  :  Diagonal_Matrices; 

Col  :  Col  Indices)  return  Col  Slices  is 


— declaration  section 


Answer  :  Col_Slices; 
Row_Spot  :  Row  Indices; 


—  --begin  function  Column  Slice 


begin 

— zero  out  answer  and  then  insert  diagonal  value 
Answer  :«  (others  •>  0.0); 

— insert  diagonal  value 

Row  Spot  Rov_Indices'VAL(Col_Indices'POS(Col)  + 

Rov~Minus  Col  IndicesPosFirst); 
Answer(RovSpot)  :«  Matrix(ColHarkerTColT) ; 

return  Ansver; 

end  Column  Slice; 


3.3.6.2.9.6.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  generic  data  types  are  visible  to  this  part  and  defined  at  the 
package  specification  level  of  Diagonal_Matrix_Operations: 


)  Name 

1  Type 

1 

Description 

|  Elements' 

|  floating 

7 

Data  type  of  elements  in  the  exported  matrix 

|  point  type 

i 

type,  as  well  as  the  imported  array  types 

1  Col_Indices 

j  discrete 

Used  to  dimension  imported  and  exported 

!  type 

arrays 

j  Row_Indices 

|  discrete 

Used  to  dimension  imported  and  exported 

type 

i 

arrays 

|  Col_Slices 

|  array 

i 

One-dimensional  array  of  column  Elements 
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The  following  table  summarizes  the  types  required  hy  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 


|  Name 

|  Range 

|  Description  | 

|  Diagonal 
j  Range 
j  Diagonal 
j  Matrices 

|  1. .Entry  Count 
; 

|  N/A 

1 

|  Used  to  dimension  diagonal  matrices  | 

1 

|  Vector  representation  of  a  matrix  where  all  | 

but  the  diagonal  elements  equal  zero  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  body  of  Diagonal_Matrix_Operations: 


|  Name 

Range 

|  Description  | 

|  Col  Markers 

1 

N/A 

|  Array  of  pointers  into  Diagonal 
j  Matrices  | 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Diagonal_Matrix_Operations: 


|  Name 

Type 

Description  | 

|  Col_Marker 

Col_Markers 

Array  of  pointers  into  Diagonal_  | 

Matrices 

Row  Minus  Col  Indices 

INTEGER 

Preinitialized  value  of: 

|  Pos_First 

Row  Indices'  P0S(  Row  Indices' FIRST)  -j 
Col~Ind i ces ' POS ( Collnd i ces ' FIRST )  j 

3.3.6.2.9.6.10.6.8  LIMITATIONS 


None. 


3.3.6.2.9.6.10.7  ADD_TO_IDENTITY  UNIT  DESIGN  (CATALOG  #P415-0) 

This  function  adds  the  input  matrix  to  an  identity  matrix,  returning  the 
resultant  diagonal  matrix.  The  calculations  are  performed  by  adding  1.0  to 
each  diagonal  element. 


3. 3. 6. 2. 9. 6..  10. 7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 
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3.3.6.2.9.6.10.7.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.6.10.7.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

1 

|  Diagonal  Matrices 

1 

In 

|  Diagonal  matrix  to  be  added  to  an  | 

|  identity  matrix. 

3.3.6.2.9.6.10.7.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type 

Value 

|  Description  | 

|  Answer  |  Diagonal_Matrices 

N/A 

|  Result  of  performing  addition  | 

3.3.6.2.9.6.10.7.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.6.10.7.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Add_to_Identity  (Input  :  Diagonal_Matrices) 

return  Diagonal_Matrices  is 

— declaration  section 
Answer  :  Diagonal_Mat rices; 

—  — begin  function  Add_to  Identity 
begin 


77 


Process: 
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for  Index  in  1.. Entry  Count  loop 

Answer(Index)  :=  Input(Index)  +  1.0; 
end  loop  Process; 

return  Answer; 

end  Add  toldentity; 


3.3.6.2.9.6.10.7.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  generic  data  types  are  visible  to  this  part  and  defined  at  the 
package  specification  level  of  Diagonal_Matrix_Operations: 


I 

Name 

1  Type 

Description 

1 

I 

Elements 

|  floating 

Data  type  of  elements  in  the  exported  matrix 

7 

1 

j  point  type 

type,  as  well  as  the  imported  array  types 

1 

Collndices 

j  discrete 

Used  to  dimension  imported  and  exported 

type 

arrays 

Rov_Indices 

|  discrete 

Used  to  dimension  imported  and  exported 

i 

1 

j  type 

arrays 

i 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 

|  Name  | 

Range  | 

Description  | 

Diagonal  | 

1.. Entry  Count  | 

Used  to  dimension  diagonal  matrices 

Range 

1 

Diagonal 

N/A  j 

Vector  representation  of  a  matrix  where  all 

Matrices  j 

1 

but  the  diagonal  elements  equal  zero 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 


|  Name 

Type 

Description  .  | 

|  Entry_Count 

Positive 

Number  of  diagonal  elements  in  the  array  | 
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3.3.6.2.9.6.10.7.8  LIMITATIONS 


None. 


3.3.6.2.9.6.10.8  SUBTRACT_FROM_IDENTITY  UNIT  DESIGN  (CATALOG  #P416-0) 

This  function  subtracts  an  input  matrix  from  an  identity  matrix,  returning  the 
result.  The  calculations  are  performed  by  subtracting  the  diagonal  elements 
from  1.0. 


3.3.6.2.9.6.10.8.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.3.6.2.9.6.10.8.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.6.10.8.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Input 

1 

|  Diagonal  Matrices 
!  "  1 

In 

|  Diagonal  matrix  to  be  subtracted  from| 
j  an  identity  matrix  | 

3.3.6.2.9.6.10.8.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type 

|  Value 

|  Description  | 

|  Answer  |  Diagonal_Matrices 

|  N/A 

|  Result  of  performing  the  subtraction! 

3.3.6.2.9.6.10.8.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.6.10.8.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Subtract_from_Identity  (Input  :  Diagonal_Matrices) 

return  Diagonal_Matrices  is 


— declaration  section 


Answer  :  Diagonal_Matrices; 


—  — begin  function  Subtract_From_Identity 


begin 

Process: 

for  Index  in  1 . .  En t ry_Coun t  loop 

Answer  (Index)  :=»  1.0  -  Input  (Index) ; 
end  loop  Process; 

return  Answer; 

end  Subtractfrom  Identity; 


3.3.6.2.9.6.10.8.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  generic  data  types  are  visible  to  this  part  and  defined  at  the 
package  specification  level  of  Diagonal_Matrix_Operations: 


|  Name  |  Type  |  Description  | 


1 

Elements 

|  floating 

1 

Data  type  of  elements  in  the  exported  matrix 

1 

j  point  type 

type,  as  well  as  the  imported  array  types 

1 

1 

Col_Indices 

j  discrete 

1 

Used  to  dimension  imported  and  exported 

1 

1 

1  type 

1 

arrays 

1 

1 

Row_Indices 

j  discrete 

1 

Used  to  dimension  imported  and  exported 

1 

1  type 

1 

arrays 

1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 
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|  Name 

|  Range 

|  Description  | 

|  Diagonal 
j  Range 
|  Diagonal 
j  Matrices 

|  1. .Entry  Count 

1 

j  N/A 

|  Used  to  dimension  diagonal  matrices  | 

1 

|  Vector  representation  of  a  matrix  where  all  | 

|  but  the  diagonal  elements  equal  zero 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix  Operations: 


|  Name 

1  Type 

|  Description  | 

|  Entry_Count 

|  Positive 

|  Number  of  diagonal  elements  in  the  array  | 

3.3.6.2.9.6.10.8.8  LIMITATIONS 


None. 


3.3.6.2.9.6.10.9  "+"  (DIAGONAL  MATRICES  +  DIAGONAL_MATRICES  ->  DIAGONAL  MATRICES) 

UNIT  DESIGN  (CATALOG  #P417-0) 

This  function  adds  two  input  diagonal  matrices,  returning  the  resultant 
diagonal  matrix. 


3.3.6.2.9.6.10.9.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.3.6.2.9.6.10.9.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.6.10.9.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Left 

|  Diagonal  Matrices 

1  *n 

|  First  diagonal  matrix  to  be  added  | 

1  Right 

j  Diagonal_Matrices 

j  In 

|  Second  diagonal  matrix  to  be  added 
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3.3.6.2.9.6.10.9.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  Answer 

Diagonal  Matrices 

N/A 

|  Result  of  performing  the  addition  | 

3.3.6.2.9.6.10.9.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.6.10.9.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "+"  (Left  :  Diagonal_Mat rices ; 

Right  :  Diagonal_Mat rices)  return  Diagonal_Matrices  is 

—declaration  section 


Answer  :  Diagonal_Mat rices; 


—  — begin  function  "+" 


begin 

Process: 

for  Index  in  1. .Entry_Count  loop 

Answer(Index)  :-  Left(Index)  +  Right(Index) ; 
end  loop  Process; 

return  Answer; 

end  "+" ; 


3.3.6.2.9.6.10.9.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 


Data  types: 
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The  following  generic  data  types  are  visible  to  this  part  and  defined  at  the 
package  specification  level  of  Diagonal_Matrix_Operations: 


|  Name  |  Type  |  Description 


Elements 
Col_Indices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  the  exported  matrix 
type,  as  well  as  the  imported  array  types 
Used  to  dimension  imported  and  exported 
arrays 

Used  to  dimension  imported  and  exported 
arrays 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 


|  Name 

Range 

Description  | 

j  Diagonal 
j  Range 

1. .Entry  Count 

Used  to  dimension  diagonal  matrices 

j  Diagonal_ 
j  Matrices 

N/A 

Vector  representation  of  a  matrix  where  all 
but  the  diagonal  elements  equal  zero 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 


|  Name 

Type 

Description  | 

|  Entry_Count 

Positive 

Number  of  diagonal  elements  in  the  array  | 

3.3.6.2.9.6.10.9.8  LIMITATIONS 


None. 


3.3.6.2.9.6.10.10  (DIAGONAL  MATRICES  -  DIAGONAL  MATRICES  «>  DIAGONAL_MATRICES ) 
UNIT  DESIGN  (CATALOG  #P418-0) 

This  function  subtracts  two  input  diagonal  matrices,  returning  the  resultant 
matrix.  The  calculations  are  performed  by  subtracting  the  individual  elements 
of  the  input  matrices. 


3.3.6.2.9.6.10.10.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 
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3.3.6.2.9.6.10.10.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.6.10.10.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description 

1 

|  Left 

|  Diagonal  Matrices 

1  In 

|  Diagonal  matrix 

to  be 

subtracted 

from) 

|  Right 

j  Diagonal  Matrices 

In 

|  Diagonal  matrix 

to  be 

treated  as 

the  j 

1 

1 

|  subtrahend 

i 

3.3.6.2.9.6.10.10.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type 

|  Value 

|  Description  | 

|  Answer  |  Dlagonal_Matrices 

|  N/A 

|  Result  of  performing  the  subtraction! 

3.3.6.2.9.6.10.10.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.6.10.10.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Diagonal_Matrices; 

Right  :  Diagonal~Matrices)  return  Diagonal_Matrices  is 


— declaration  section 


Answer  :  Diagonal_Matrices; 


—  — begin  function 


begin 
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Process: 

for  Index  in  1. .Entry _Count  loop 

Answer(Index)  :=  Left(Index)  -  Right(Index) ; 
end  loop  Process; 


return  Answer; 

end 


3.3.6.2.9.6.10.10.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  generic  dr»£a  types  are  visible  to  this  part  and  defined  at  the 
package  specification  lc^el  of  Diagonal_Matrix_Operations: 


|  Name 

Type 

1 

Description 

|  Elements 

floating 

T 

Data  type  of  elements  in  the  exported  matrix 

j 

point  type 

i 

type,  as  well  as  the  imported  array  types 

j  Col_Indices 

discrete 

i 

Used  to  dimension  imported  and  exported 

type 

i 

arrays 

j  Row_Indices 

discrete 

i 

Used  to  dimension  imported  and  exported 

type 

i 

arrays 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 


|  Name 

|  Range 

|  Description  | 

|  Diagonal 

|  1.. Entry  Count 

|  Used  to  dimension  diagonal  matrices 

j  Range 

1 

j  Diagonal 

j  N/A 

|  Vector  representation  of  a  matrix  whe^e  all 

!  Matrices  | 

j  but  the  diagonal  elements  equal  zero 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Diagonal_Matrix_Operations: 


|  Name  |  Type  |  Description  | 

|  Entry_Count  |  Positive  |  Number  of  diagonal  elements  in  the  array  | 
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3.3.6.2.9.6.10.10.8  LIMITATIONS 
None. 


3. 3. 6. 2. 9. 7  VECTOR_SCALAR_OPERATIONS_UNCONSTRAINED  PACKAGE  DESIGN  (CATALOG 
#P419-0) 

This  package  provides  a  set  of  functions  to  multiply  and  divide  each  element  of 
a  vector  by  a  scalar. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 2. 9. 7.1  REQUIREMENTS  ALLOCATION 

The  following  table  describes  the  allocation  of  requirements  to  the  units  in 
this  part: 


1 

|  Requirements  | 

|  Name 

|  Allocation 

| 

|  R065 

|  "/" 

|  R066 

3. 3. 6. 2. 9. 7. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 2. 9. 7. 3  INPUT/OUTPUT 
GENERIC  PARAMETT^S: 


Data  types: 

The  following  table  summarizes  the  generic  formal  types  previously  inf  this 
part's  package  specification: 
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|  Name  | 

Type 

Description 

1 

|  Elementsl  | 

floating 

Type  of  elements  in  a  vector; 

1 

1  1 

point  type 

Elementsl  :=  Elements2  *  Scalars 

|  Elements2  | 

floating 

Type  of  elements  in  a  vector; 

1 

1  1 

point  type 

Elements2  :=  Elementsl  /  Scalars 

1 

|  Scalars  | 

floating 

Type  of  value  to  be  used  for 

1  1 

point  type 

multiplying  and  dividing 

1 

|  Indicesl  ! 

discrete 

Used  to  dimension  Vectorsl 

1 

1  1 

type 

|  Indices2  | 

discrete 

Used  to  dimension  Vectors2 

1  1 

type 

1 

|  Vectorsl  j 

array 

An  array  of  Elementsl 

1 

j  Vectors2  j 

array 

An  array  of  Elements2 

1 

Subprograms: 

The  following 

table  describes  the  generic  formal  subroutines  required 

part: 

|  Name  | 

Type 

Description 

1 

|  «*"  | 

function 

Used  to  define  the  operation 

1  1 

Elementsl  :■  Elements2  *  Scalars 

1  "/"  ! 

function 

Used  to  define  the  operation 

1  1 

Elements2  :»  Elementsl  /  Scalars 

3. 3. 6. 2. 9. 7. 4 

LOCAL  DATA 

None . 

3. 3. 6. 2. 9. 7. 5 

PROCESS  CONTROL 

Not  applicable. 

3. 3. 6. 2. 9. 7. 6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 

package  body  Vector_Scalar_Operations_Unconstrained  is 

end  Vector_Scalar_Operations_Unconstrained; 

3. 3. 6. 2. 9. 7. 7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 
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3. 3. 6. 2. 9. 7. 8  LIMITATIONS 
None. 


3. 3. 6. 2. 9. 7. 9  LLCSC  DESIGN 


None. 


3.3.6.2.9.7.10  UNIT  DESIGN 

3.3.6.2.9.7.10.1  UNIT  DESIGN  (CATALOG  #P420-0) 

This  function  calculates  a  scaled  vector  by  multiplying  each  element  of  an 
input  vector  by  a  scale  factor. 


3.3.6.2.9.7.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R065. 


3.3.6.2.9.7.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.7.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Vector 

|  Vectors2 

1  In 

|  Vector  to  be  scaled  | 

j  Multiplier 

j  Scalars 

1  In 

j  Scale  factor  ; 

3.3.6.2.9.7.10.1.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Description  | 

|  Answer 
j  A  Index 
j  V_Index 

Vectorsl 

Indicesl 

Indices2 

Scaled  vector  I 
Index  into  answer  array  j 
Index  into  input  vector  j 
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3.3.6.2.9.7.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.7.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Vector  :  Vectors2; 

Multiplier  :  Scalars)  return  Vectorsl  is 


— declaration  section- 


Answer  :  Vectorsl(Indicesl'FIRST  .. 

Indicesl' VAL(Vector' LENGTH- 1  + 

Indicesl ' P0S( Indicesl' FIRST)  )); 

A_Index  :  Indicesl; 

V  Index  :  Indices2; 


—  — begin  function 


begin 

AIndex  Indicesl' FIRST; 

V_Index  :-  Indices 2' FIRST; 

Process: 

loop 

Ansver(A_Index)  Vector(V_Index)  *  Multiplier; 

exit  Process  when  V  Index  -  Vector' LAST; 

A_Index  Indicesl~SUCC(A_Index) ; 

V_Index  :=*  Indices2'SUCC(V_Index) ; 

end  loop  Process; 

return  Answer; 

end 


3.3.6.2.9.7.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 


Data  types: 
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The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Vector_Scalar_Operations_- 
Unconstrained: 


|  Name  |  Type  |  Description 


Elementsl 

Elements2 

Scalars 

Indicesl 

Indices2 

Vectorsl 

Vectors2 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
type 

discrete 

type 

array 

array 


Type  of  elements  in  a  vector; 

Elementsl  :=  Elements2  *  Scalars 
Type  of  elements  in  a  vector; 

Elements2  :»  Elementsl  /  Scalars 
Type  of  value  to  be  used  for 
multiplying  and  dividing 
Used  to  dimension  Vectorsl 

Used  to  dimension  Vectors2 

An  array  of  Elementsl 
An  array  of  Elements2 


Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
as  generic  formal  subroutines  to  the  Vector_Scalar_Operations_Unconstrained 
package: 


|  Name 

1  Type 

|  Description  | 

| 

1 

|  function 

1 

|  Used  to  define  the  operation  | 

j  Elementsl  :-  Elements2  *  Scalars  j 

3.3.6.2.9.7.10.1.8  LIMITATIONS 
None. 


3.3.6.2.9,7.10.2  "/"  UNIT  DESIGN  (CATALOG  #P421 -0) 

This  function  calculates  a  scaled  vector  by  dividing  each  element  of  an  input 
vector  by  a  scale  factor. 


3.3.6.2.9.7.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R066. 


3.3.6.2.9.7.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.2.9.7.10.2.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Vector  | 

|  Vectorsl 

1  In 

|  Vector  to  be  scaled  | 

j  Divisor 

|  Scalars 

1  In 

j  Scale  factor 

3.3.6.2.9.7.10.2.4  LOCAL  DATA 


Data  objects: 

The  following  describes  the  local  data  maintained  by  this  part: 


|  Name  | 

Type 

Description  | 

|  Answer  | 
j  A_Index  j 
j  V_Index  j 

Vectors2 

Indices2 

Indicesl 

Scaled  vector  | 
Index  into  ansver  vector  j 
Index  into  input  vector  j 

3.3.6.2.9.7.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.7.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "/"  (Vector  :  Vectorsl; 

Divisor  :  Scalars)  return  Vectors2  is 


— declaration  section- 


Ansver  :  Vectors2(Indices2' FIRST  .. 

Indices2'VAL(Vector' LENGTH- 1  + 

Indices2'POS(Indices2' FIRST)  )); 

A_Index  :  Indices2; 

V  Index  :  Indicesl; 


—  — begin  function  Vector_Scalar_Divide 


begin 
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A_Index  :=  Indices2' FIRST; 

V_Index  :=  Indicesl' FIRST; 

Process: 

loop 

Ansver(A  Index)  :=  Vector(V_Index)  /  Divisor; 

exit  Process  when  V_Index  =  Indicesl' LAST; 

A  Index  :=  Indices2' SUCC(A_Index) ; 

Index  :  =  Indicesl 'SUCC(V  Index); 

end  loop  Process; 

return  Answer; 

end  "/"; 


3.3.6.2.9.7.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  pare  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Vector_Scalar_Operations_- 
Uncons trained: 


|  Name  |  Type  |  Description 


Elementsl 

Elements2 

Scalars 

Indicesl 

Indices2 

Vectorsl 

Vectors2 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
type 

discrete 

type 

array 

array 


Type  of  elements  in  a  vector; 

Elementsl  :-  Elements2  *  Scalars 
Type  of  elements  in  a  vector; 

Elements2  :-  Elementsl  /  Scalars 
Type  of  value  to  be  used  for 
multiplying  and  dividing 
Used  to  dimension  Vectorsl 

Used  to  dimension  Vectors2 

An  array  of  Elementsl 
An  array  of  Elements2 


Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
as  generic  formal  subroutines  to  the  Vector_Scalar_Operations_Unconstrained 
package : 
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|  Name 

1  Type 

|  Description  | 

|  "/" 

1 

|  function 

1 

|  Used  to  define  the  operation  | 

|  Elements2  :=  Elementsl  /  Scalars  j 

3.3.6.2.9.7.10.2.8  LIMITATIONS 


None.  . 


3. 3. 6. 2. 9. 8  MATRIX_SCALAR_OPERATIONS_UNCONSTRAINED  PACKAGE  DESIGN  (CATALOG 
#P425-0) 

This  package  provides  a  set  of  functions  which  will  scale  a  matrix  by 
multiplying  or  dividing  each  element  of  the  matrix  by  a  scale  factor. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 2. 9. 8.1  REQUIREMENTS  ALLOCATION 

The  following  table  describes  the  allocation  of  requirements  to  the  parts  in 
this  LLCSCs 


1 

j  Requirements  | 

|  Name 

|  Allocation 

| 

|  R073  | 

|  "/" 

|  R074  | 

3. 3. 6. 2. 9. 8. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 2. 9. 8. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  described  in  this  part's 
package  specification: 


Data  types: 
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1 

Name 

Type 

Description 

1 

1 

Elementsl 

floating 

Type  of  elements  in  an  array 

1 

1 

point  type 

1 

1 

Elements2 

floating 

Type  of  elements  in  an  array 

1 

1 

point  type 

1 

1 

Scalars 

floating 

Data  type  of  objects  to  be  used  as 

1 

point  type 

multipliers  and  divisors 

1 

Col 

discrete 

Used  to  dimension  second  dimension  of 

1 

Inclicesl 

type 

Matricesl 

1 

Row 

discrete 

Used  to  dimension  first  dimension  of 

1 

Inclicesl 

type 

Matricesl 

1 

1 

Col 

discrete 

Used  to  dimension  second  dimension  of 

1 

1 

Inclices2 

type 

Matrices2 

1 

1 

Row 

discrete 

Used  to  dimension  first  dimension  of 

1 

InHices2 

type 

Matrices2 

1 

Matricesl 

array 

Two  dimensional  matrix  with  elements 

1 

of  type  Elementsl 

1 

1 

Matrices2 

array 

Two  dimensional  matrix  with  elements 

1 

1 

of  type  Elements2 

1 

Subprograms : 


|  Name 

1  Type 

|  Description  | 

| 

|  function 

|  Function  to  define  the  operation  | 

1 

1 

Elementsl  *  Scalars  Elements2  j 

j  "/" 

j  function 

j  Function  to  define  the  operation  i 

1 

1 

j  Elements2  /  Scalars  Elementsl  i 

3. 3. 6. 2. 9. 8. 4  LOCAL  DATA 
None. 


3. 3. 6. 2. 9. 8. 5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 6. 2. 9. 8. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 

package  body  Matrix_Scalar_Operations_Unconstrained  is 

end  Matrix_Scalar_Operations_Uncons trained; 

< 
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3. 3. 6. 2. 9. 8. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 2. 9. 8. 8  LIMITATIONS 


None. 


3. 3. 6. 2. 9. 8. 9  LLCSC  DESIGN 


None. 


3.3.6.2.9.8.10  UNIT  DESIGN 

3.3.6.2.9.8.10.1  UNIT  DESIGN  (CATALOG  #P426-0) 

This  function  calculates  a  scaled  matrix  by  multiplying  each  element  of  an 
input  matrix  by  a  scalar. 


3.3.6.2.9.8.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R073. 


3.3.6.2.9.8.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.8.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Matrix 

|  Matricesl 

1  In 

Matrix  to  be  scaled  | 

j  Multiplier 

|  Scalars 

|  In 

Scale  factor  j 

3.3.6.2.9.8.10.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 
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Name 

Type 

Answer 

Matrices2 

A  Col 

Col  Indices2 

A  Row 

Row  Indices2 

M  Col 

Col  Indicesl 

M  Row 

Row  Indicesl 

Description 


Scaled  matrix 

Index  into  second  dimension  of  answer  matrix 
Index  into  first  dimension  of  answer  matrix 
Index  into  second  dimension  of  input  matrix 
Index  into  first  dimension  of  input  matrix 


3.3.6.2.9.8.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.8.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Matrix  :  Matricesl; 

Multiplier  :  Scalars)  return  Matrices2  is 


— declaration  section- 


Ansver  :  Matrices2 

<Rov_Indices2' FIRST  .. 

Row_Indices2'VAL( Matrix' LENGTH(1)-1  + 

Rov_Ind  i  ces2 '  POS  ( Rov_Ind  i  ces2 '  FIRST  )  ), 
Col_Indices2' FIRST  .. 

Collnd i ces  2 ' VAL( Ma  t  r i x ' LENGTH (2 )  - 1  + 

Col_Indices2' P0S(Col_Indices2 ' FIRST)  )); 

ACol  :  Col_Indices2; 

ARow  :  Row_Indices2; 

M_Col  :  Col_Indicesl; 

M  Row  :  Row  Indicesl; 


—  — begin  function 


begin 

A_Row  :=  Row  Indices2'FIRST; 

MRow  Matrix' FIRST(l); 

Row  Loop: 
loop 

A_Col  :=  Col_Indices2' FIRST; 

M_Col  :=  Matrix'FIRST(2) ; 

Col_Loop: 

loop 

t 

Answer(A_Row,  A_Col)  :=  Matrix(M_Row,  M_Col)  *  Multiplier; 
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exit  Col_Loop  when  M_Col  =  Matrix' LAST(2); 
A_Col  :=  Col_Indices2'SUCC(A_Col); 

M_Col  :=  Col_Indicesl'SUCC(M_Col); 

end  loop  Col_Loop; 

exit  Row_Loop  when  M  Row  =  Matrix'LAST(l); 

A_Row  :=  Row_IndicesI' SUCC (A_Row) ; 

M_Row  :=  Row_Indicesl'SUCC(M_Row); 

end  loop  Row_Loop; 

return  Answer; 

end 


3.3.6.2.9.8.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  folloving  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  MatrixScalarOperations: 


1 

Name 

Type 

Description  | 

1 

Elementsl 

floating 

Type  of  elements  in  an  array 

1 

point  type 

1 

Elements2 

floating 

Type  of  elements  in  an  array 

1 

point  type 

1 

Scalars 

floating 

Data  type  of  objects  to  be  used  as 

1 

point  type 

multipliers  and  divisors 

1 

Col 

discrete 

Used  to  dimension  second  dimension  of 

1 

In3icesl 

type 

Matricesl 

1 

Row 

discrete 

Used  to  dimension  first  dimension  of 

In3icesl 

type 

Matricesl 

1 

Col 

discrete 

Used  to  dimension  second  dimension  of 

1 

In3ices2 

type 

Matrices2 

1 

Row 

discrete 

Used  to  dimension  first  dimension  of 

1 

In3ices2 

type 

Matrices2 

1 

Matricesl 

array 

Two  dimensional  matrix  with  elements 

I 

of  type  Elementsl 

1 

Matrices2 

array 

Two  dimensional  matrix  with  elements 

1 

of  type  Elements2 

Subprograms  and  task  entries: 

The  folloving  table  describes  the  subprograms  required  by  this  part  and  defined 
as  generic  formal  subroutines  to  the  Matrix_Scalar_Operations_Unconstrained 
package . 
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|  Name 

1  Type 

|  Description  | 

|  "*» 

1 

j  function 

1 

|  Function  to  define  the  operation  | 

|  Elementsl  *  Scalars  :=  Elements2  j 

3.3.6.2.9.8.10.1.8  LIMITATIONS 


None. 


3.3.6.2.9.8.10.2  "/"  UNIT  DESIGN  (CATALOG  #P427-0) 

This  function  calculates  a  scaled  matrix  by  dividing  each  element  of  an  input 
matrix  by  a  scale  factor. 


3.3.6.2.9.8.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R074. 


3.3.6.2.9.8.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.8.10.2.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Matrix 

|  Matrices2 

1  In 

|  Matrix  to  be  scaled  | 

j  Divisor 

j  Scalars 

1  In 

j  Scale  factor  j 

3.3.6.2.9.8.10.2.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 
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|  Name  |  Type  |  Description 


Answer 
A_Col 
A_Row 
M_Col 
M  Row 


Matricesl 
Col_Indicesl 
Row_Indicesl 
Col_Indices2 
Row  Indices2 


Scaled  matrix 

Index  into  second  dimension  of  answer  matrix 
Index  into  first  dimension  of  answer  matrix 
Index  into  second  dimension  of  input  matrix 
Index  into  first  dimension  of  input  matrix 


3.3.6.2.9.8.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.8.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "/"  (Matrix  :  Matrices2; 

Divisor  :  Scalars)  return  Matricesl  is 


— declaration  section- 


#  Answer  :  Matricesl 

(Rowlndicesl' FIRST  .. 

Row_Indicesl'VAL(Matrix'  LENGTH(1)-1  + 

Row_Indicesl ' POS(Row_Indicesl ' FIRST)  ), 
Col_Indicesl' FIRST  .7 
Col_Ind  i  ces  1 '  VAL  ( Ma  t  r  i  x '  LENGTH  ( 2 )  - 1  + 

Co l_Ind i ces 1 ' POS ( Col_Indi ces  1 ' FIRST )  )); 

A_Col  :  Col_Indicesl; 

A_Row  :  Row_Indicesl; 

M_Col  :  Col_Indices2; 

M  Row  :  Row  Indices2; 


—  — begin  function  "/" 


begin 

A_Row  :=  Row  Ind i ces  1' FIRST; 

MRow  Matrix' FIRST(l); 

Row  Loop: 
loop 

A_Col  :=  Col_Indicesl' FIRST; 

M_Col  :=  Matrix'FIRST(2) ; 

Col_Loop: 

loop 

Answer(A_Row,  A_Col)  Matrix(M_Row,  M_Col)  /  Divisor; 
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exit  Col_Loop  when  M_Col  =  Matrix' LAST(2) ; 
A_Col  :=  Col_Indicesl'SUCC(A_Col); 

M_Col  :=  Col_Indices2'SUCC(M_Col); 

end  loop  Col_Loop; 

exit  Row_Loop  when  M  Row  =  Matrix' LAST(l) ; 

A_Row  : =-Row_IndicesI' SUCC( A_Row) ; 

M_Row  :=  Row_Indices2'SUCC(M_Row); 

end  loop  RowLoop; 

return  Answer; 

end 


3.3.6.2.9.8.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Matrix_Scalar_Operations: 


1 

Name 

Type 

Description  | 

I 

Element si 

floating 

Type  of  elements  in  an  array 

1 

point  type 

1 

Elements2 

floating 

Type  of  elements  in  an  array 

point  type 

Scalars 

floating 

Data  type  of  objects  to  be  used  as 

point  type 

multipliers  and  divisors 

1 

Col 

discrete 

Used  to  dimension  second  dimension  of 

1 

InHicesl 

type 

Matricesl 

1 

Row 

discrete 

Used  to  dimension  first  dimension  of 

In3icesl 

type 

Matricesl 

Col 

discrete 

Used  to  dimension  second  dimension  of 

1 

In3ices2 

type 

Matrices2 

I 

Row 

discrete 

Used  to  dimension  first  dimension  of 

1 

In?ices2 

type 

Matrices2 

Matricesl 

array 

Two  dimensional  matrix  with  elements 

of  type  Elementsl 

1 

Matrices2 

array 

Two  dimensional  matrix  with  elements 

1 

of  type  Elements2 

Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
as  generic  formal  subroutines  to  the  Matrix_Scalar_Operations_Unconstrained 
package . 
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Name 

1  Type 

|  Description  | 

|  <<*" 

|  function 

|  Function  to  define  the  operation 

1 

1 

j  Elementsl  *  Scalars  :=  Elements2  | 

j  n/n 

|  function 

j  Function  to  define  the  operation  j 

1 

1 

j  Elements2  /  Scalars  :=  Elementsl  | 

3.3.6.2.9.8.10.2.8  LIMITATIONS 


None. 


3. 3. 6. 2. 9. 9  DIAGONAL J1ATRIX_SCALAR_0PERATI0NS  PACKAGE  DESIGN  (CATALOG  #P431-0) 

This  package  provides  the  functions  to  allow  the  user  to  multiply  or  divide 
each  element  of  a  diagonal  matrix  by  a  scalar. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 2. 9. 9.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3. 3. 6. 2. 9. 9. 2  LOCAL  ENTITIES  DESIGN 


Subprograms : 

This  package  contains  a  sequence  of  statements  which  are  executed  when  it  is 
elaborated.  This  code  checks  to  ensure  a  square  matrix  has  been  instantiated. 
If  not,  a  Dimens ion_Error  exception  is  raised. 


3. 3. 6. 2. 9. 9. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  in  this  part's  package 
specification: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

1  Type 

|  Description  | 

|  Elements  1 

1 

|  Elements2 

1 

|  Scalars 

1 

|  Diagonal  Rangel 
|  Diagonal  Range2 
|  Diagonal  Matricesl 
|  Diagonal  Matrices2 

|  floating 

1  point  type 
|  floating 
j  point  type 
j  floating 
j  point  type 
j  integer  type 
j  integer  type 
|  array 
j  array 

|  Type  of  elements  in  Diagonal  Matricesl  | 

j  Type  of  elements  in  Diagonal  Matrices2  j 

j  Data  type  of  scale  factor 

1  1 
|  Used  to  dimension  Diagonal  Matricesl  | 

j  Used  to  dimension  Diagonal~Matrices2 
j  An  array  of  Elementsl 
|  An  array  of  Elements2 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 

|  Name  |  Type 

Description 

1 

|  |  function 

1  1  1 

j  "/"  j  function 

l.l 

Multiplication  operator  defining  the  operation: 

Elementsl  *  Scalars  ■  Elenents2 

Division  operator  defining  the  operation: 

Elements2  /  Scalars  -  Elementsl 

3. 3. 6. 2. 9. 9. 4  LOCAL  DATA 


None. 


3. 3. 6. 2. 9. 9. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 2. 9. 9. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 
package  body  Diagonal_Matrix_Scalar_Operations  is 


— begin  processing  for  package  body 


begin 

— make  sure  instantiated  diagonal  matrices  are  of  the  same  size 
if  Diagonal_Matricesl' LENGTH  /=  Diagonal_Matrices2' LENGTH  then 
raise  Dimension  Error; 
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end  if; 

end  Diagonal_Matrix_Scalar_Operations; 


3. 3. 6. 2. 9. 9. 7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units; 

Exceptions: 

The  fallowing  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name  |  Description 


|  dimension  error  |  Raised  by  a  routine  when  input  received  has  | 
|  j  dimensions  incompatible  for  the  type  of  j 
j  j  operation  to  be  performed 


3. 3. 6. 2. 9. 9. 8  LIMITATIONS 

The  following  exceptions  are  raised  by  this  part: 


|  Name 

|  Vhen/Vhy  Raised  | 

|  Dimension  Error  | 

I  "  1 

|  Raised  if  the  lengths  of  the  two  imported  vector  types  | 
j  are  not  of  the  same  length  j 

3. 3. 6. 2. 9. 9. 9  LLCSC  DESIGN 


None. 


3.3.6.2.9.9.10  UNIT  DESIGN 

3.3.6.2.9.9.10.1  UNIT  DESIGN  (CATALOG  #P432-0) 

This  function  multiplies  each  element  of  a  diagonal  input  matrix  by  a  scale 
factor. 


3.3.6.2.9.9.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 
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3.3.6.2.9.9.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.9.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 


The  following  table  describes  this 

part's 

formal  parameters: 

|  Name 

Type 

Mode 

|  Description  | 

|  Matrix 

Diagonal  Matricesl 

In 

|  Matrix  to  be  scaled  | 

|  Multiplier 

Scalars 

In 

j  Scale  factor  j 

3.3.6.2.9.9.10.1.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  Diagonal  Matrices2 

|  N/A 

|  Scaled  diagonal  matrix 

j  Indexl 

j  Diagonal  Rangel 

j  N/A 

j  Index  into  input  matrix 

j  Index2 

j  Diagonal_Range2 

j  N/A 

j  Index  into  output  matrix 

3.3.6.2.9.9.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.9.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Matrix  :  Diagonal_Matricesl; 

Multiplier  :  Scalars)-return  Diagonal_Matrices2  is 


— declaration  section- 


Ansver  :  Diagonal_Matrices2; 
Indexl  :  Diagonal_Rangel; 
Index2  :  Diagonal_Range2 ; 


-  — begin  function 
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begin 

Indexl  :=  Diagonal_Rangel' FIRST; 

Index2  :=  Diagonal_Range2' FIRST; 

Process: 

loop 

Answer (Index2)  Matrix(Indexl)  *  Multiplier; 

exit  Process  when  Indexl  -  Diagonal_Rangel'LAST; 
Indexl  :*  Diagonal_Rangel' SUCC(  Indexl ) ; 

Index2  :>  Diagonal_Range2' SUCC(Index2) ; 

end  loop  Process; 

return  Answer; 

end 


3.3.6.2.9.9.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  in  the  package  specification  of  Diagonal_Matrix_Scalar_Operations: 


Name 


I  Type 


Description 


|  Elementsl 

floating  |  Type  of  elements  in  Diagonal  Matricesl 

1 

point  type  j 

|  Elements2 

floating  j  Type  of  elements  in  Diagonal  Matrices2 

1 

point  type  j 

|  Scalars 

floating  j  Data  type  of  scale  factor 

point  type  j 

|  Diagonal  Rangel 

integer  type  j  Used  to  dimension  Diagonal  Matricesl 

|  Diagonal  Range2 

integer  type  j  Used  to  dimension  Diagonal  Matrices2 

j  Diagonal  Matricesl 

array  j  An  array  of  Elementsl 

j  Diagonal_Matrices2 

array  j  An  array  of  Elements2 

3.3.6.2.9.9.10.1.8  LIMITATIONS 


None. 
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3.3.6.2.9.9.10.2  "/"  UNIT  DESIGN  (CATALOG  #P433-0) 

This  function  divides  each  element  of  a  diagonal  input  matrix  by  a  scale 
factor. 


3.3.6.2.9.9.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.3.6.2.9.9.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.9.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 


The  following  table  describes  this 

part's 

formal  parameters: 

|  Name 

1  Type 

Mode 

|  Description  | 

|  Matrix 

j  Diagonal  Matrices2 

In 

|  Matrix  to  be  scaled 

j  Divisor 

j  Scalars 

In 

j  Scale  factor  j 

3.3.6.2.9.9.10.2.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  Answer 
j  Indexl 
j  Index2 

Di  agonal_Ma t  r i ces 1 

Diagonal_Rangel 

Diagonal_Range2 

N/A 

N/A 

N/A 

|  Scaled  diagonal  matrix  | 
j  Index  into  input  matrix  j 
j  Index  into  output  matrix 

3.3.6.2.9.9.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.9.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "/"  (Matrix  :  Diagonal_Matrices2; 

Divisor  :  Scalars)  return  Diagonal_Matricesl  is 
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— declaration  section- 


Ansver  :  Diagonal_Matricesl; 
Indexl  :  Diagonal_Rangel ; 
Index2  :  Diagonal_Range2; 


—  — begin  function 


begin 

Indexl  DiagonalRangel' FIRST; 

Index2  Diagonal_Range2 ' FIRST ; 

Process: 

loop 

Answer (Indexl)  :=  Matrix(Index2)  /  Divisor; 

exit  Process  when  Indexl  -  Diagonal_Rangel' LAST; 
Indexl  :*  Diagonal_Rangel'  SUCC( Indexl ) ; 

Index2  :■  Diagonal_Range2'SUCC(Index2) ; 

end  loop  Process; 

return  Answer; 

end  "/"; 


3.3.6.2.9.9.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  in  the  package  specification  of  Diagonal_Matrix_Scalar_Operations: 
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|  Name 


Type 


Description 


Elementsl 

Elements2 

Scalars 

Diagonal_Rangel 

Diagonal_Range2 

Diagonal_Matricesl 

Diagonal_Matrices2 


floating 
point  type 
floating 
point  type 
floating 
point  type 
integer  type 
integer  type 
array 
array 


Type  of  elements  in  Diagonal_Matricesl 

Type  of  elements  in  Diagonal_Matrices2 

Data  type  of  scale  factor 

Used  to  dimension  Diagonal_Matricesl 
Used  to  dimension  Diagonal_Matrices2 
An  array  of  Elementsl 
An  array  of  Elements2 


3.3.6.2.9.9.10.2.8  LIMITATIONS 


None. 


3.3.6.2.9.10  MATRIX_MATRIX_MULTIPLY_UNRESTRICTED  PACKAGE  DESIGN  (CATALOG  #P439-0) 

This  package  contains  a  function  which  multiplies  an  m  x  n  matrix  by  an  n  x  p 
matrix,  returning  an  m  x  p  matrix.  The  inner  dimensions  of  the  input  matrices 
must  be  equal,  the  first  dimensions  of  the  left  and  result  matrices  must  be  the 
same,  and  the  second  dimensions  of  the  right  and  result  matrices  must  be  the 
same.  If  any  of  these  dimensions  do  not  match,  a  Dimension_Error  exception  is 
raised. 

The  result  of  this  operation  is  defined  as  follows: 
a(i , j )  b(i,k)  *  c(k,j) 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.10.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R077. 


3.3.6.2.9.10-2  LOCAL  ENTITIES  DESIGN 


Subprograms: 

This  package  body  contains  a  sequence  of  statements  which  are  executed  when  it 
is  elaborated.  This  code  ensures  that  the  dimensions  of  the  instantiated 
matrices  are  as  required  by  this  part.  If  they  are  not,  a  Dimension  Error 
exception  is  raised. 
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3.3.6.2.9.10.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  at  the  package 
specification  level  of  the  Matrix_Matrix_Multiply_Unrestricted  package: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


Lef t_Elements 

1 

floating 

Right  Elements 

1 

point  type 
floating 

Output  Elements 

1 

point  type 
floating 

Left_Col  Indices 

1 

point  type 
discrete 

Left  Row  Indices 

1 

1 

type 

discrete 

type 

RightColIndices 

1 

discrete 

Righ  tRowInd ices 

1 

1 

type 

discrete 

Output_Col_Indices 

1 

type 

discrete 

Output_Rov_Indices 

1 

1 

type 

discrete 

Lef t_Ma trices 

1 

type 

array 

Right_Matrices 

1 

array 

Output_Matrices 

1 

array 

Data  type  of  elements  in  left  input 
matrix 

Data  type  of  elements  in  right  input 
matrix 

Data  type  of  elements  in  output  matrix 

Used  to  dimension  second  dimension  of 
left  input  matrix 

Used  to  dimension  first  dimension  of 
left  input  matrix 

Used  to  dimension  second  dimension  of 
right  input  matrix 

Used  to  dimension  first  dimension  of 
right  input  matrix 

Used  to  dimension  second  dimension  of 
output  matrix 

Used  to  dimension  first  dimension  of 
output  matrix 

Data  type  of  left  input  matrix 

Data  type  of  right  input  matrix 

Data  type  of  output  matrix 


Subprograms: 


The  following  table  describes  the  generic  formal  subroutines  required  by  this 


part.  To  tailor  this 
subroutines  should  be 
before  performing  the 

function  to  handle  sparse  matrices,  the  formal 
set  up  to  check  the  appropriate  element(s)  for  zero 
indicated  operation. 

|  Name  | 

Type 

|  Description  | 

|  | 

1  1 

function 

|  Function  defining  the  operation 
]  Left  Elements  *  Right  Elements  :-  Output  Elements 

1  "+"  ! 

1  1 

function 

j  Function  defining  the  operation 
j  Output_Elements  +  Output_Elements  := 

Output  Elements 
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3.3.6.2.9.10.4  LOCAL  DATA 


None. 


3.3.6.2.9.10.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.10.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General  Vector  Matrix  Algebra) 

package  body  MatrIx_MatrIx_MultIply_Unrestricted  is 


— begin  processing  for  package  body 


begin 


- make  sure  dimensions  are  compatible;  to  be  compatible  the  following 

--  — conditions  must  exist: 

- must  be  trying  to  multiply:  [m  x  n]  x  [n  x  p]  :-  [m  x  p] 

if  NOT  (Lef t_Matrices'LENGTH(2)  .  Right_Katrices'LENGTH(l)  and  — "n's" 

Left  Matrices' LENGTH(l)  -  OutputMatrices'LENGTH(l)  and  — "m's" 

Right_Matrices'LENGTH(2)  -  0utput_Matrices'LENGTH(2))  then  "p's" 

— dimensions  are  incompatible 
raise  Dimension_Error; 

end  if; 

end  Ma  t  r  i  x_Ma  t  r  ix_Mul  t  i  {1  ly_Unres  t  r  i  c  t  ed ; 


3.3.6.2.9.10.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


< 
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|  Name 

Description 

1 

|  dimension  error  | 

i 

1  1 

Raised  by  a  routine  when  input  received  has  | 
dimensions  incompatible  for  the  type  of  j 

operation  to  be  performed  j 

3.3.6.2.9.10.8  LIMITATIONS 

The  following  table 

describes  the  exceptions 

raised  by  this  part: 

|  Name 

|  When/Why  Raised  | 

|  Dimension  Error 

1  '  1 

|  Raised  if  the  dimensions  of  the  matrices  are  other  than:  | 
[m  x  n]  x  [n  x  p]  [m  x  pj  j 

3.3.6.2.9.10.9  LLCSC  DESIGN 
None. 

3.3.6.2.9.10.10  UNIT  DESIGN 

3.3.6.2.9.10.10.1  UNIT  DESIGN  (CATALOG  #P440-0) 

This  function  multiplies  an  m  x  n  matrix  by  an  n  x  p  matrix,  returning  an  m  x  p 
matrix. 

The  result  of  this  operation  is  defined  as  follows: 
a(i,j)  b(i,k)  *  c(k,j) 

3.3.6.2.9.10.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R077. 

3.3.6.2.9.10.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.10.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name 

1  Type 

Mode 

|  Description  | 

|  Left 

|  Left  Matrices 

In 

|  m  x  n  matrix  | 

I  Right 

|  Right  Matrices 

In 

|  n  x  p  matrix  j 

3.3.6.2.9.10.10.1.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type  |  Value  |  Description 


Answer 

M_Answer 

M_Lef t 

NLeft 

NRight 

PAnswer 

PRight 


Output_Matrices 
Ou  t  pu  t_Row_Ind ices 

Le  f  t_Row_Ind ices 

Lef  t_Col_Indices 

Righ  t_Row_Ind ices 

Ou  t  pu  tColInd i ces 

Righ tColInd ices 


N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 


Result  matrix 

Index  into  first  dimension  of 
result  matrix 

Index  into  first  dimension  of 
left  input  matrix 
Index  into  second  dimension  of 
left  input  matrix 
Index  into  first  dimension  of 
right  input  matrix 
Index  into  second  dimension  of 
result  matrix 

Index  into  second  dimension  of 
right  input  matrix 


3.3.6.2.9.10.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.10.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Lef t_Matrices; 

Right  :  Right_Matrices)  return  0utput_Matrices  is 


— declaration  section- 


Answer 
MAnswer 
M_Lef t 
N_Lef t 
N_Right 
P_Answer 
P  Right 


0utput_Matrices; 
0u.tput_Rov_Indices ; 
Lef t_Row_Ind ices; 
Lef t~Col_Indices; 
Right_Row  Indices; 
Ou  t  pu t_CoI_Ind i ces ; 
Righ t_Col_Ind ices; 
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—  — begin  of  function 


begin 

M_Ansver  :=  Output_Row_Ind ices'  FIRST; 

M~Lef t  :=  Lef t_Rov_Indices' FIRST; 

M_Loop: 

loop 

PAnswer  :  =  Output  Col_Indices' FIRST; 

PRight  :  =  Right_Col_Indices' FIRST; 

P_Loop: 

loop 

Answer(M_Answer,  P_Answer)  :-  0.0; 

N_Left  :=•  Left  Col_Indices' FIRST; 

NRight  :  =  RightRowInd ices 'FIRST; 

N_Loop: 
loop 

Answer(M_Answer,  P_Answer)  :■ 

Answer (M_Answer,  P_Ansver)  + 

Lef t(M_Left,  NLeft)  *  Right(N_Right,  PRight); 

exit  NLoop  when  N  Left  *  Left  ColIndices'LAST; 
NLeft  :■  Left_CoI_Indices'SUCC(N  Left); 

N~Right  Right_Row_Indices'SUCC(il_Right); 

end  loop  N_Loop; 

exit  P_Loop  when  P  Right  -  Right  Co  l_Ind  ices  'LAST; 
PRight  RightCol  Indices' SUCC(P_Right) ; 

P_Answer  OutpuI_CoT_Ind ices' SUCC(P_Answer) ; 

end  loop  PLoop; 

exit  M_Loop  when  M_Left  -  Left  Row  Indices'LAST; 

M_Left  Lef t_Row_Ind ices' SUCC(H  Left); 

M_Answer  j -  Output_Row_Indices '  SUCC^M_Answer) ; 

end  loop  M_Loop; 

return  Answer; 

end 


3.3.6.2.9.10.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 
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Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  in  the  package  specification  of  Matrix_Matrix_Multiply_Unrestricted: 


|  Name 


Type 


Description 


|  Left  Elements 

floating 

1 

Data  type  of  elements  in  left  input 

point  type 

matrix 

j  Right  Elements 

floating 

Data  type  of  elements  in  right  input 

point  type 

1 

matrix 

|  Output  Elements 

floating 

1 

Data  type  of  elements  in  output  matrix 

|  Left  Col  Indices 

point  type 
discrete 

1 

Used  to  dimension  second  dimension  of 

type 

I 

left  input  matrix 

|  Left  Row  Indices 

discrete 

Used  to  dimension  first  dimension  of 

type 

1 

left  input  matrix 

|  Right  Col  Indices 

discrete 

1 

Used  to  dimension  second  dimension  of 

type 

1 

right  input  matrix 

j  Right  Row  Indices 

discrete 

1 

Used  to  dimension  first  dimension  of 

type 

1 

right  input  matrix 

|  Output  Col  Indices 

discrete 

1 

Used  to  dimension  second  dimension  of 

type 

1 

output  matrix 

|  Output  Row  Indices 

discrete 

1 

Used  to  dimension  first  dimension  of 

type 

output  matrix 

j  Left  Matrices 

array 

Data  type  of  left  input  matrix 

j  Right  Matrices 

array 

Data  type  of  right  input  matrix 

j  Output_Mat rices 

array 

1 

Data  type  of  output  matrix 

Subprograms  and  task  entries: 

The  following  table  describes  the  generic  formal  subprograms  required  by  this 
part  and  defined  at  the  package  specification  level  of  Matrix_Matrix_Multiply_- 
Unrestricted: 


|  Name 

1  Type 

|  Description 

1 

| 

|  function 

|  Function  defining  the  operation 

1 

Left  Elements  *  Right  Elements 

Output  Elements 

j  n  +  n 

j  function 

j  Function  defining  the  operation 

1 

Output  Elements  +  Output  Elements 

•  _ 

•  * 

1 

j  Output_Eleraents 

3.3.6.2.9.10.10.1.8  LIMITATIONS 


None. 
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3.3.6.2.9.11  MATRIX_VECTOR_MULTIPLY_UNRESTRICTED  PACKAGE  DESIGN  (CATALOG  #P434-0) 

This  package  contains  a  function  which  multiplies  an  m  x  n  matrix  by  an  n  x  1 
vector  producing  an  m  x  1  vector.  A  DIMENSION_ERROR  exception  is  raised  if  the 
length  of  the  second  dimension  of  the  input  matrix  is  not  the  same  as  t* 

length  of  the  input  vector  or  if  the  length  of  the  first  dimension  of  v  -nput 

matrix  is  not  the  same  as  the  length  of  the  output  vector. 

The  result  of  this  operation  is  defined  as  follows: 

a(i)  b(i,j)  *  c(j) 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.11.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R069. 


3.3.6.2.9.11.2  LOCAL  ENTITIES  DESIGN 
Subprograms : 

This  package  contains  a  sequence  of  statements  vhich  are  executed  vhen  the 
package  is  elaborated.  This  section  checks  the  dimensions  of  the  instantiated 
arrays  to  ensure  they  are  compatible  for  a  matrix  *  vector  vector  operation. 
To  be  compatible  the  following  conditions  must  exist:  Input_Matrices  :  m  x  n 
array  Input_Vectors  :  n  x  1  array  Output_Vectors  :  m  x  1  array  If  the 
dimensions  are  not  compatible,  a  Dimension_Error  exception  is  raised. 


3.3.6.2.9.11.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  at  the  package 
specification  level  of  Matrix_Vector_Multiply_Unrestricted  package: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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*1 


|  Name 


Type  j  Description 


natrix_Elements 

Input_Vector_Elements 

Output_Vector_Elements 

Collndices 

Rowlndices 

Input_Vector_Indices 

Output_Vector_Indices 

Input_Matrices 

InputVectors 

Output_Vectors 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
type 

discrete 

type 

discrete 

type 

discrete 

type 

array 

array 

array 


Type  of  elements  in  the  input  matrix 

Type  of  elements  in  the  input  vector 

Type  of  elements  in  the  output 
vector 

Used  to  dimension  second  dimension 
of  input  matrix 

Used  to  dimension  first  dimension 
of  input  matrix 

Used  to  dimension  input  vector 

Used  to  dimension  output  vector 

Data  type  of  input  matrix 

Data  type  of  input  vector 

Data  type  of  output  vector 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this  \ 

part.  This  function  can  be  made  to  handle  sparse  matrices  and/or  vectors  by 
tailoring  the  imported  functions  to  check  the  appropriate  element(s)  for  zero 
before  performing  the  indicated  operation. 


|  Name 

Type 

Description  | 

n*  n 

function 

Function  defining  the  operation 

Matrix_Elements  *  Input_Vector_Elements  := 

Output  Vector  Elements 

tf  +  !f 

function 

Function  defining  the  operation 
Output_Vector_Elements  + 

Output_Vector_Elements  :- 
Output_Vector_Elements 

3.3.6.2.9.11.4  LOCAL  DATA 


None. 


3.3.6.2.9.11.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.11.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General  Vector_Matrix  Algebra) 

package  body  MatrIx_Vector_MultIply_Unrestricted  is 


— begin  processing  for  package  body 


begin 

—  — make  sure  dimensions  are  compatible;  for  dimensions  to  be  compatible  the  following 

—  — conditions  must  is  what  should  be  requested:  [m  x  n]  x  [n  x  1]  -  [m  x  1] 

if  NOT  (Inpu ^Matrices' LENGTH* 2)  -  Input_Vec tors 'LENGTH  and  ~"n's" 

Input_Matrices'LENGTH(l)  -  Output_Vectors' LENGTH)  then  — "m's" 

— dimensions  are  incompatible 
raise  Dimension_Error; 

end  if; 

end  Matrix_Vector_Multiply_Unrestricted; 


3.3.6.2.9.11.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name 

|  Description  | 

|  dimension  error 

1 

1 

|  Raised  by  a  routine  when  input  received  has 
[  dimensions  incompatible  for  the  type  of 
[  operation  to  be  performed 

3.3.6.2.9.11.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 
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j  Name  |  Vhen/Why  Raised 


Dimension_Error  |  Raised  if  the  length  if  an  operation  other  than  the  | 

j  following  is  attempted:  [m  x  n]  x  [n  x  1]  :=  [m  x  1]  | 


3.3.6.2.9.11.9  LLCSC  DESIGN 
None. 

3.3.6.2.9.11.10  UNIT  DESIGN 

3.3.6.2.9.11.10.1  UNIT  DESIGN  (CATALOG  IP435-0) 

This  function  multiplies  an  m  x  n  matrix  by  an  n  x  1  vector  producing  an  m  x  1 
vector. 

The  result  of  this  operation  is  defined  as  follows: 
a(i)  :«  b(i,j)  *  c(j) 

3.3.6.2.9.11.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R069. 

3.3.6.2.9.11.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.11.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description 

1 

|  Matrix  | 

|  Input  Matrices 

In 

j  Matrix  to  be  used  as 

the  multiplicand  | 

j  Vector  | 

I  Input_Vectors 

In 

j  Vector  to  be  used  as 

the  multiplier 

3.3.6.2.9.11.10.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 
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|  Name  |  Type 


|  Description 


Answer 


Output_Vectors 


M_Answer 
MMatrix 
NMatrix 
N  Vector 


Output  Vector  Indices 

Row_In3ices 

Col_Indices 

Input  Vector  Indices 


Result  of  performing  the  matrix-vector 
multiplication 
Index  into  result  vector 
Index  into  input  matrix 
Index  into  input  matrix 
Index  into  input  vector 


3.3.6.2.9.11.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.11.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Matrix  :  Input_Matrices; 

Vector  :  Input_Vectors)  return  Output_Vectors  is 


— declaration  section- 


Ansver  :  OutputVectors; 
MAnswer  :  Output  Vector_Indices; 
M_Matrix  :  Row  lndices; 

N_Matrix  :  Col_Indices; 

N_Vector  :  Input_Vector_Indices; 


—  — begin  function 


begin 

M_Answer  :■  Output  Vector_Indices' FIRST; 

M_Matrix  :■  Row_In3ices ' FIRST ; 

M_Loop: 

loop 

Answer(M_Answer)  :■  0.0; 

N_Matrix  Col_Ind ices' FIRST; 

NJtector  Input_Vector_Indices' FIRST; 

N~Loop: 

loop 

Answer(M_Answer)  :■  Answer (M_Answer)  + 

Matrix(M_Matrix,  N_Matrix)  *  Vector(N_Vector) ; 

exit  N  Loop  when  N  Matrix  -  Col_Indices'LAST; 

N_MatrTx  :*  Col_In3ices'  SUCC(N_Matrix) ; 

N_Vector  :»  Input_Vector_Indices'SUCC(N_Vector); 
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end  loop  N_Loop; 

exit  M  Loop  when  M  Matrix  =  Row_Indices' LAST; 
M_MatrIx  :=  Row_IncTices' SUCC(M_Matrix) ; 

M_Answer  :=  Output_Vector_Indices' SUCC(M_Answer) ; 

end  loop  MLoop; 

return  Answer; 

end 


3.3.6.2.9.11.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  describes  the  generic  data  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Matrix_Vector_Multiply_- 
Unrestricted  package: 


|  Name 

1  Type 

Description  | 

Matrix_Elements 

|  floating 
j  point  type 

Type  of  elements  in  the  input  matrix 

Input_Vector_Elements 

j  floating 
j  point  type 

Type  of  elements  in  the  input  vector 

Output  Vector  Elements 

j  floating 

Type  of  elements  in  the  output 

j  point  type 

vector 

Col  Indices 

j  discrete 

Used  to  dimension  second  dimension 

i  type 

of  input  matrix 

Row  Indices 

|  discrete 

Used  to  dimension  first  dimension 

1  type 

of  input  matrix 

Input_Vector_Indices 

|  discrete 
type 

Used  to  dimension  input  vector 

Output_Vector_Indices 

|  discrete 

1  type 

Used  to  dimension  output  vector 

Input  Matrices 

|  array 

Data  type  of  input  matrix 

Input  Vectors 

j  array 

Data  type  of  input  vector 

Output_Vectors 

j  array 

Data  type  of  output  vector 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  generic  formal  subroutines  and  required  by 
this  part  and  defined  at  the  package  specification  level  of  Matrix_Vector_- 
Multiply_Unres trie ted: 
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|  Name 

1  Type 

|  Description 

1 

|  »*» 

|  function 

1 

1 

|  Function  defining  the  operation 
|  Matrix  Elements  *  Input_Vector_Elements  := 
i  Output  Vector  Elements 

1 

1 

1 

»»  +  If 

|  function 

1 

1 

j  Function  defining  the  operation 
Output_Vector_Elements  + 
j  Output  Vector  Elements  := 

1  Output_Vector_Elements 

I 

1 

1 

1 

3.3.6.2.9.11.10.1.8  LIMITATIONS 


None. 


3.3.6-2.9.12  VECTOR_VECTOR_TRANSPOSE_MULTIPLY_UNRESTRICTED  PACKAGE  DESIGN  (CATALOG 
#P442-0) 

This  function  multiplies  one  input  vector  by  the  transpose  of  a  second  input 
vector,  returning  the  resultant  matrix.  This  package  expects  the  instantiated 
arrays  to  have  the  following  dimensions: 

Left_Vectors  :  m  x  1  array  Right_Vectors  :  n  x  1  array  Matrices  :  m  x  n 
array 

If  the  dimensions  are  not  as  expected,  a  Dimension  Error  exception  is  raised. 

The  following  defines  the  result  of  this  operation: 
a(i, j)  b(i)  *  c(j) 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.12.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.2.9.12.2  LOCAL  ENTITIES  DESIGN 
Subprograms : 

This  package  body  contains  a  sequence  of  statements  which  checks  ensure  the 
dimensions  of  the  instantiated  vectors  and  arrays  are  required  by  this  part. 
If  they  are  not,  a  Dimension_Error  exception  is  raised. 


3.3.6.2.9.12.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 
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The  following  generic  parameters  were  previously  defined  at  the  package 
specification  level  of  the  Vector_Vector_Transpose_Multiply_Unrestricted 
package : 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Left  Vector  Elements 

floating 

Data  type  of  elements  in  left  input 

point  type 

vector 

j  Right  Vector  Elements 

floating 

Data  type  of  elements  in  right  input 

point  type 

vector 

j  Matrix  Elements 

floating 

Data  type  of  elements  in  output 

point  type 

matrix 

j  Left  Vector  Indices 

discrete 

type 

Used  to  dimension  left  input  vector 

j  Right  Vector  Indices 

discrete 

type 

Used  to  dimension  right  input  vector 

j  Col  Indices 

discrete 

Used  to  dimension  second  dimension 

type 

of  output  matrix 

j  Row  Indices 

discrete 

Used  to  dimension  first  dimension  of 

type 

output  matrix 

j  Left  Vectors 

array 

Data  type  of  left  input  vector 

j  Right  Vectors 

array 

Data  type  of  right  input  vector 

j  Matrices 

array 

Data  type  of  output  matrix 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

| 

1 

1 

|  function 

1 

1 

Operator  defining  the  multiplication  operation 

Left  Vector_Elements  *  Right_Vector_Elements  :* 
MatrIx_Elements 

3.3.6.2.9.12.4  LOCAL  DATA 
None. 


3.3.6.2.9.12.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.12.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (GeneralVectorMatrixAlgebra) 

package  body  Vector_Vector_Transpose_Multiply_Unrestricted  is 


— begin  processing  for  package  body 


begin 

—  --make  sure  dimensions  are  compatible;must  have  the  following  conditions: 

—  — attempted  operation  is  [m  x  1]  x  [1  x  nj  :-  [m  x  nj 

if  NOT  (LeftVectors' LENGTH  -  Matrices' LENGTH(l)  and  — "m's" 

RightVectors' LENGTH  -  Matrices' LENGTH(2))  then  — "n's" 

raise  DimensionError ; 

end  if; 

end  Vector_Vector_Transpose_Multiply_Unrestricted; 


3.3.6.2.9.12.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name 

|  Description  I 

|  dimension  error 

1 

|  Raised  by  a  routine  when  input  received  has 
dimensions  incompatible  for  the  type  of 
operation  to  be  performed 

3.3.6.2.9.12.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


Si  : :  :  ; : : 
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[  Name 

When/Why  Raised  | 

|  Dimension  Error 

1 

1 

Raised  if  an  attempt  is  made  to  put  the  result  of  | 

[m  x  1]  vector  x  [1  x  n]  vector  into  other  than  a  j 

[m  x  nj  matrix  | 

3.3.6.2.9.12.9  LLCSC  DESIGN 
None. 

3.3.6.2.9.12.10  UNIT  DESIGN 

3.3.6.2.9.12.10.1  UNIT  DESIGN  (CATALOG  #P443-0) 

This  function  multiplies  one  input  vector  by  the  transpose  of  a  second  input 
vector,  returning  the  resultant  matrix. 

The  following  defines  the  result  of  this  operation: 

a(i,j)  :«  b(i)  *  c(j) 

3.3.6.2.9.12.10.1.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.2.9.12.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.12.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description 

1 

|  Left 

|  Left  Vectors 

In 

|  m  x  1  vector 

1 

I  Right 

|  Right_Vectors 

In 

j  1  x  n  vector 

1 

3.3.6.2.9.12.10.1.4  LOCAL  DATA 


i 

\ 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 
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Name 

Type 

1 

Value 

|  Description 

Answer 

Matrices 

1 

N/A 

|  Result  .rix 

M  Answer 

Row  Indices 

N/A 

j  Index  into  first  dimension  of 

1 

j  output  matrix 

M  Left 

Left  Vector  Indices 

1 

N/A 

j  Index  into  left  input  vector 

N  Answer 

Col  Indices- 

1 

N/A 

j  Index  into  second  dimension  of 

1 

|  output  matrix 

NRight 

Right_Vector  Indices 

1 

N/A 

j  Index  into  right  input  vector 

3.3.6.2.9.12.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.12.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Left_Vectors  ; 

Right  :  Right_Vectors)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices; 

M_Ansver  s  Rov_Indices; 

M_Left  :  Lef t_Vector_Indices; 
N_Answer  :  Col  Indices; 

N_Right  :  RigKt_Vector_Indices; 


—  — begin  function 


begin 

M_Ansver  Row_Indices' FIRST; 

M_Left  Lef t_Vector_Indices' FIRST; 

M_Loop: 

loop 

N_Right  Right_Vector_Indices' FIRST; 

N_Answer  :■  Col_Indices' FIRST; 

N_Loop: 

loop 

Answer (M_Answer,  N_Answer)  :=  Left(M_Left)  *  Right(N_Right) ; 

exit  N  Loop  when  N_Right  -  Right_Vector_Indices' LAST; 

N_Right  Right_  Vector_Indices-SUCC(N_Right) ; 

W  Answer  :■  Col  Indices' SUCC(N  Answer);- 
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end  loop  N_Loop; 

exit  M_Loop  when  M  Answer  =  Row_Indices' LAST; 
M_Answer  :=  Rov_In(Iices'SUCC(M_Answer); 
M_Left  :=  Left_Vector_Indices'SUCC(M_Left); 

end  loop  M_Loop; 

return  Answer; 

end 


3.3.6.2.9.12.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS! 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  the  Vector_Vector_Transpose_- 
MultiplyUnrestricted  package: 


|  Name 

Type 

Description  | 

Left  Vector  Elements 

floating 

Data  type  of  elements  in  left  input 

point  type 

vector 

Right  Vector  Elements 

floating 

Data  type  of  elements  in  right  input 

Matrix  Elements 

point  type 
floating 

vector 

Data  type  of  elements  in  output 

point  type 

matrix 

Left  Vector  Indices 

discrete 

Used  to  dimension  left  input  vector 

Right  Vector  Indices 

type 

discrete 

Used  to  dimension  right  input  vector 

Col  Indices 

type 

discrete 

Used  to  dimension  second  dimension 

type 

of  output  matrix 

Row  Indices 

discrete 

Used  to  dimension  first  dimension  of 

type 

output  matrix 

Left  Vectors 

array 

Data  type  of  left  input  vector 

Right  Vectors 

array 

Data  type  of  right  input  vector 

Matrices 

array 

Data  type  of  output  matrix 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  at  the  package  specification  level  of  the  Vector_Vector_- 
Trans pose_Mul  t i plyJJnr es t r i c t ed  package : 
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|  Name 

|  Type 

|  Description 

1 

|  >'*» 

1 

1 

|  function 

1 

|  Operator  defining  the  multiplication  operation  j 
j  Lef t_Vector_Elements  *  Right_Vector_Elements  :=  i 
j  Matrix_Elements  -  j 

3.3.6.2.9.12.10.1.8 

LIMITATIONS 

None. 


3.3.6.2.9.13  MATRIX  MATRIX_TRANSPOSE  MULTIPLY  UNRESTRICTED  PACKAGE  DESIGN  (CATALOG 
#P445-0) 

This  package  contains  a  function  vhich  multiplies  one  input  matrix  by  the 
transpose  of  a  second  input  matrix,  returning  the  resultant  matrix.  The 
results  of  this  operation  are  defined  as  follows: 

a  (i,j)  :=  b(i,k)  *  c(j,k) 

This  package  expects  the  instantiated  arrays  to  have  been  dimensioned  as 
follows: 

LeftMatrices  :  m  x  n  matrix  Right_Matrices  :  p  x  n  matrix  OutputMatrices  : 
m  x  p  matrix 

If  the  matrices  have  not  been  instantiated  as  expected,  a  Dimension_Error 
exception  is  raised. 

The  decomposition  for  this  part  is  the  same  as  that  shovn  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.13.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.2.9.13.2  LOCAL  ENTITIES  DESIGN 


Subprograms : 

This  package  contains  a  sequence  of  statements  which  are  executed  when  it  is 
elaborated.  This  code  checks  to  ensure  the  dimensions  of  the  instantiated 
matrices  are  as  required  for  this  part.  If  not,  a  Dimension_Error  exception  is 
raised. 


3.3.6.2.9.13.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 
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The  following  generic  parameters  were  previously  defined  at  the  package 
specification  level  of  the  Matrix_Matrix_Transpose_Multiply_Unrestricted 
package: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


1 

Name 

1  Type 

1 

Description 

1 

1 

i 

I 

Left  Elements 

|  floating 
point  type 

1 

Type  of  elements  in  left  input  matrix 

1 

1 

i 

Right  Elements 

|  floating 

1 

Type  of  elements  in  right  input  matrix 

1 

i 

point  type 

1 

i 

Output  Elements 

|  floating 
point  type 

1 

1 

Type  of  elements  in  output  matrix 

1 

i 

Left  Col 

j  discrete 

1 

Used  to  dimension  second  dimension  of 

1 

i 

Indices 

type 

1 

left  input  matrix 

i 

Left  Row 

|  discrete 

1 

Used  to  dimension  first  dimension  of 

1 

i 

Indices 

type 

left  input  matrix 

1 

i 

Right  Col 

|  discrete 

1 

Used  to  dimension  second  dimension  of 

1 

i 

Indices 

type 

1 

right  input  matrix 

1 

i 

Right  Row 

|  discrete 

1 

Used  to  dimension  first  dimension  of 

i 

Indices 

type 

1 

right  input  matrix 

1 

i 

Output  Col 

|  discrete 

1 

Used  to  dimension  second  dimension  of 

i 

Indices 

type 

output  matrix 

1 

i 

Output  Row 

|  discrete 

Used  to  dimension  first  dimension  of 

1 

i 

Indices 

type 

1 

output  matrix 

i 

Left  Matrices 

|  array 

1 

Data  type  of  left  input  matrix 

i 

Right  Matrices 

|  array 

Data  type  of  right  input  matrix 

i 

Output  Matrices 

|  array 

1 

Data  type  of  output  matrix 

1 

Subprograms: 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
par  t : 


|  Name 

1  Type 

Description 

1 

| 

1 

|  function 

1 

Operator  used  to 
Left  Elements  * 

define  the  operation: 

Right  Elements  :-  Output  Elements 

3.3.6.2.9.13.4  LOCAL  DATA 


None. 


3.3.6.2.9.13.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.13.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General  Vector  Matrix_Algebra) 

package  body  MatrIx_MatrIx_Tranipose_Multiply_Unrestricted  is 


— begin  processing  for  package  body 


begin 

—  — make  sure  dimension  are  compatible 

—  — need  to  have:  [m  x  nj  x  (p  x  n]  :»  [m  x  p] 

if  NOT  (Lef t_Matrices' LENGTH(l)  -  Output_Matrices'LENGTH(l)  and  — ' Vs" 

Lef t_Matrices'LENGTH(2)  -  0utput_Matrices'Length(2)  and  — "n's" 
RightMatrices'LENGTH(l)  «  0utput_Matrices'LENGTH(2))  then  —"p's" 

raise  Dimension_Error; 

end  if; 

end  Matrix_Matrix_Transpose_MUltiply_Unrestricted; 


3.3.6.2.9.13.7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name  |  Description 


|  Dimension_Error  |  Raised  by  a  routine  when  input  received  has 
j  f  dimensions  incompatible  for  the  type  of 

j  j  operation  to  be  performed 


3.3.6.2.9.13.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 
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|  Name 

When/Why  Raised  | 

|  Dimension  Error 

Raised  if  the  m's,  n's,  and  p's  of  the  input  and  output  | 
matrices  are  not  equal;  i.e.,  need  to  be  doing  the  | 

following  operation:  [m  x  n]  x  [p  x  n]  :=  [  m  x  p]  j 

3.3.6.2.9.13.9  LLCSC  DESIGN 
None. 

3.3.6.2.9.13.10  UNIT  DESIGN 

3.3.6.2.9.13.10.1  UNIT  DESIGN  (CATALOG  #P446-0) 

This  function  multiples  an  m  x  n  matrix  by  the  transpose  of  a  p  x  n  matrix, 
returning  the  resultant  m  x  p  matrix. 

The  results  of  this  operation  are  defined  as  follows: 

a  (i , j )  :»  b(i,k)  *  c(j,k) 

3.3.6.2.9.13.10.1.1  REQUIREMENTS  ALLOCATION 
N/A 

3.3.6.2.9.13.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.13.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Left 

|  Left  Matrices 

1 

|  Matrix  to  be  used  as  the  multiplicand  | 

j  Right 

j  Right  Matrices 

In 

j  Matrix  whose  transpose  is  to  be  used  as  j 

1 

1  1 

j  the  multiplier  j 

3.3.6.2.9.13.10.1.4  LOCAL  DATA 


Data  objects: 
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The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type 


Value  |  Description 


Answer 

1 

Output  Matrices 

1 

N/A 

|  Result  matrix  being  calculated 

M  Answer 

1 

1 

Output  Row  Indices 

N/A 

j  Index  into  first  dimension  of 
|  result  matrix 

MLeft 

1 

Lef  t_Row_Indices 

1 

N/A 

j  Index  into  first  dimension  of 
i  left  input  matrix 

N_Lef t 

1 

1 

Left_Col  Indices 

N/A 

j  Index  into  second  dimension  of 
left  input  matrix 

NRight 

1 

1 

Right  Col_Indices 

1 

N/A 

|  Index  into  second  dimension  of 
right  input  matrix 

P  Answer 

1 

Output_Col_Indices 

1 

1 

N/A 

j  Index  into  second  dimension  of 
j  result  matrix 

PRight 

1 

1 

Right  Row_Indices 

1 

1 

N/A 

j  Index  into  first  dimension  of 
j  right  input  matrix 

3.3.6.2.9.13.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.13.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "*"  (Left  :  Lef t_Matrices; 

Right  :  Right_Matrices)  return  Output_Matrices  is 

— declaration  section 


Answer 

M_Answer 

MLeft 

N_Lef t 

N_Right 

P_Answer 

P_Right 


Output_Matrices; 

Ou  t  pu  t_Row_Ind ices; 
Le  f  t_Row_I nd i ces ; 

Le  f  t  _Co  l"~Ind  i  ce  s ; 
Right_CoI  Indices; 
Output_CoT_Indices; 
Right_Row  Indices; 


—  — begin  function 


begin 

M  Answer  :=  Output_Row  Indices' FIRST; 

M~Left  :=  Lef t_Row_Indices' FIRST; 

M_Loop: 

loop 

P_Answer  :=  Output_Col_Ind ices 'FIRST; 
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P_Right  :=  Right_Row_Indices' FIRST; 

P_Loop: 

loop 

Answer (M_Answer,  P_Answer)  :=  0.0; 

N_Left  :==■  Left_Col  Indices' FIRST; 

N_Right  :~  Right_CoT_Indices' FIRST; 

N_Loops 

loop 

Answer(M_Answer,  P_Answer)  :  =• 

Answer (M_Answer,  P_Answer)  + 

Lef t(M_Lef t,  N_Left)  *  Right (PRight,  NRight); 

exit  N_Loop  when  N  Left  »  Lef  t_Col_Ind  ices 'LAST; 
N_Left~  :=  Left_CoT  Indices' SUCC(N  Left); 

N  Right  :=  Right_CoT_Ind ices' SUCC(FI_Right) ; 

end  loop  N_Loop; 

exit  P_Loop  when  P_Answer  -  Output_Col_Indices'LAST; 
P_/.nswer  0utput_Col  Indices' SUCC(P  Answer); 

P_Right  :■  Righ  t_Row_Tnd  ices'  SUCC(P_5ight) ; 

end  loop  PLoop; 

exit  MLoop  when  M_Answer  -  Output_Rov_Ind  ices  'LAST; 

M  Answer  ;■  Output  Row  Indices' SUCC(M_Answer); 

M  Left  Lef t  Row  Indices'  SUCC(M_Lef t) ; 

end  loop  M_Loop; 

return  Answer; 

end 


3.3.6.2.9.13.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  of  Matrix_Matrix_Transpose_Multiply_- 
Unrestricted: 
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1 

Name 

1 

Type 

1 

Description 

1 

1 

Left  Elements 

1 

floating 

1 

Type  of  elements  in  left  input  matrix 

1 

1 

1 

point  type 

1 

1 

Right  Elements 

1 

floating 

1 

Type  of  elements  in  right  input  matrix 

1 

1 

1 

point  type 

1 

1 

1 

Output  Elements 

1 

floating 

1 

Type  of  elements  in  output  matrix 

1 

point  type 

Left  Col 

discrete 

1 

Used  to  dimension  second  dimension  of 

Indices 

type 

left  input  matrix 

1 

Left  Row 

discrete 

Used  to  dimension  first  dimension  of 

1 

Indices 

1 

type 

1 

left  input  matrix 

1 

1 

Right  Col 

1 

discrete 

1 

Used  to  dimension  second  dimension  of 

I 

Indices 

1 

type 

1 

right  input  matrix 

1 

Right  Row 

1 

discrete 

1 

Used  to  dimension  first  dimension  of 

1 

1 

Indices 

1 

type 

right  input  matrix 

1 

1 

Output  Col 

discrete 

Used  to  dimension  second  dimension  of 

1 

Indices 

type 

output  matrix 

1 

Output  Row 

1 

discrete 

Used  to  dimension  first  dimension  of 

1 

1 

Indices 

1 

type 

1 

output  matrix 

1 

1 

Left  Matrices 

1 

array 

1 

Data  type  of  left  input  matrix 

1 

1 

Right  Matrices 

array 

Data  type  of  right  input  matrix 

1 

1 

Output  Matrices 

1 

array 

1 

Data  type  of  output  matrix 

1 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  generic  formal  subroutines  and  task  entries 
required  by  this  part  and  defined  at  the  package  specification  level  of  the 
Matrix_Matrix_Transpose_Multiply_Unrestricted  package: 


|  Name  |  Type  |  Description 


|  |  function  |  Operator  u^»d  to  define  the  operation: 

|  j  j  Left_Elem>  its  *  Right_Elements  :-  Output_Elements 


3.3.6.2.9.13.10.1.8  LIMITATIONS 


None. 


3.3.6.2.9.14  DOT_PRODUCT_OPERATIONS_UNRESTRI CTED  PACKAGE  DESIGN  (CATALOG  #P448-0) 

This  package  contains  a  function  which  performs  a  dot  product  operation  on  two 
m-element  vectors. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  ” ~n-Level 
Design  Document. 
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3.3.6.2.9.14.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R063. 


3.3.6.2.9.14.2  LOCAL  ENTITIES  DESIGN 
Subprograms: 

This  package  contains  a  sequence  of  statement  which  are  executed  when  the 
package  is  elaborated.  This  code  checks  to  ensure  the  lengths  of  the 
instantiated  vectors  are  the  same. 


3.3.6.2.9.14.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  in  this  part's  package 
specification: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 


Type 


|  Description 


|  Left  Elements 

floating  |  Type  of  elements  in  left  input  vector 

point  type  j 

|  Right  Elements 

floating  j  Type  of  elements  in  right  input  vector 

point  type  j 

|  Result  Elements 

floating  j  Data  type  of  result  of  dot  product 

point  type  j 

j  Left  Indices 

discrete  j  Used  to  dimension  Left  Vectors 

j  Right  Indices 

discrete  j  Used  to  dimension  Right  Vectors 

j  Left  Vectors 

array  j  Data  type  of  left  input  vector 

j  Right_Vectors 

array  j  Data  type  of  right  input  vector 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description 

1 

|  »*» 

1 

|  function 

1 

Multiplication  operator  defining 
Lef t_Elements  *  Right_Elements  : 

the  operation:  | 

»  Result_Elements  | 
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3.3.6.2.9.14.4  LOCAL  DATA 
None. 


3.3.6.2.9.14.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.14.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix  Algebra) 

package  body  Dot_Product_OperatIons_Unrestricted  is 


— begin  processing  for  package  body 


begin 

- make  sure  instantiated  vectors  are  of  the  same  length 

if  LeftVectors' LENGTH  /«  Right_Vec  tors  'LENGTH  then 
raise  DimensionError; 
end  if; 

end  Do  t_Produc  t_Opera t  i  ons_Unres  t  r i  c  t ed  j 


3.3.6.2.9.14.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  ancestral  units: 


|  Name 

|  Description  | 

|  Dimension  Error 

1  ‘  1 
1  1 

|  Raised  by  a  routine  when  input  received  has  | 

|  dimensions  incompatible  for  the  type  of  ; 

|  operation  to  be  performed 
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3.3.6.2.9.14.8  LIMITATIONS 


The  following  table 

describes  the  exceptions 

raised  by  this  part: 

|  Name  | 

When/Why  Raised 

1 

|  Dimension  Error  | 

Raised  if  the  lengths  of 

the  two  input  vectors  is  not  | 

1  1 

the  same 

1 

3.3.6.2.9.14.9  LLCSC  DESIGN 


None. 


3.3.6.2.9.14.10  UNIT  DESIGN 

3.3.6.2.9.14.10.1  DOTPRODUCT  UNIT  DESIGN  (CATALOG  #P449-0) 

This  function  performs  a  dot  product  operation  on  two  m-element  vectors. 


3.3.6.2.9.14.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R063. 


3.3.6.2.9.14.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.14.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  |  Type  |  Mode  |  Description 


|  Left  |  Left_Vectors  in  |  First  /ector  in  a  dot  product  operation  | 

j  Right  j  Right_Vectors  |  In  j  Second  vector  in  a  dot  product  operation  j 


3.3.6.2.9.14.10.1.4  LOCAL  DATA 


Data  objects: 


«af 


The  following  table  describes  the  data  objects  maintained  by  this  part: 


>> 

T. 
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|  Name 

Type 

Value 

|  Description  | 

|  Answer 

Result  Elements 

N/A 

|  Result  of  dot  product  operation  | 

|  L  Index 

Left  Indices 

N/A 

|  Index  into  left  input  vector  j 

j  R  Index 

Right  Indices 

N/A 

|  Index  into  right  input  vector  j 

3.3.6.2.9.14.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.14.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Dot_Product  (Left  :  Left_Vectors; 

Right  :  Right_Vectors)  return  Result_Elements  is 

— declaration  section- 


Answer  :  ResultElements; 
LIndex  :  Lef tlndices; 
R_Index  :  Right_Indices; 


—  — begin  function  DotProduct- 


begin 

Answer  0.0; 

* 

L_Index  :*  Lef t_Indices' FIRST; 

R_Index  :■  Right_Indices' FIRST; 

Process: 

loop 

Answer  :-  Answer  +  Left(L  Index)  *  Right (R_Index) ; 

exit  Process  when  L  Index  -  Left_ Indices'  LAST; 
L_Index  :■  Lef t_IndIce5,SUCC(L  Index); 

R~Index  :»  Right_Indices'SUCC(R_Index); 

end  loop  Process; 


return  Answer; 
end  Dot  Product; 
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3.3.6.2.9.14.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  the  Dot_Product_Operations  - 
Unrestricted  package: 


|  Name  |  Type  |  Description 


Lef t_Elements 

Right_Elements 

Result_Elements 

Lef t_Indices 
Right  Indices 
Left_Vectors 
RightVectors 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
discrete 
array 
array 


Type  of  elements  in  left  input  vector 

Type  of  elements  in  right  input  vector 

Data  type  of  result  of  dot  product 

Used  to  dimension  Left_Vectors 
Used  to  dimension  Right_Vectors 
Data  type  of  left  input  vector 
Data  type  of  right  input  vector 


( 


3.3.6.2.9.14.10.1.8  LIMITATIONS 


None. 


3.3.6.2.9.15  DIAGONAL_FULL_MATRIX_ADD_UNRESTRICTED  PACKAGE  DESIGN  (CATALOG 
#P451-0) 

This  package  contains  a  function  adds  a  diagonal  matrix  to  a  full  matrix  by 
adding  the  individual  elements  of  the  input  matrices. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.15.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.3.6.2.9.15.2  LOCAL  ENTITIES  DESIGN 
Subprograms: 

This  package  contains  code  which  is  executed  when  the  package  is  elaborated. 
This  code  checks  to  make  sure  the  dimensions  of  the  instantiated  arrays  are 
compatible.  The  diagonal  matrix  should  have  m  elements,  and  both  of  the  full 
matrices  should  be  m  x  m  arrays.  If  these  conditions  are  not  met,  a 
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Dimension_Error  exception  is  raised. 


3.3.6.2.9.15.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  in  the  package 
specification  of  Diagonal_Full_Matrix_Add_Unrestricted: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Elements 

floating 
point  type 

Type  of  elements  in  input  and 
output  arrays 

|  Diagonal  Range 

integer 

type 

Used  to  dimension  Diagonal  Matrices 

|  Full_Input_Col  Indices 

discrete 

Used  to  dimension  Full  Input 
matrices 

j  Full_Input_Rov_Indices 

discrete 

Used  to  dimension  Full_Input 
matrices 

|  FullOutputColIndices 

discrete 

Used  to  dimension  Full_Output 
matrices 

|  Full_Output_Rov_Indices 

discrete 

Used  to  dimension  Full_Output_ 
matrices 

j  Diagonal  Matrices 

array 

Data  type  of  diagonal  input  matrix 

|  Full_Input_Matrice/< 

array 

Data  type  of  full  input  matrix 

: 

|  FullOntputMatricti 

array 

Data  type  of  full  output  matrix 

3.3.6.2.9.15.4  LOCAL  DATA 


None. 


3.3.6.2.9.15.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.15.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector  Matrix  Algebra) 

package  body  Diagonal_FuIl_MatrTx_Add_Unrestricted  is 


t* 


tv/ 


— begin  package  body  processing 
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begin 

—  — make  sure  square  matrices  of  the  same  size  have  been  instantiated 

if  not  (Diagonal_Matrices' LENGTH  =  Full_Input_Matrices' LENGTH(l)  and 

Full_Input_Matrices'LENGTH(l)  =  Full~Input_Matrices' LENGTH(2)  and 
Full_Input  Matrices'LENGTH(l)  =  Full_OutpuT_Matrices'LENGTH(l)  and 
Full~Output_Matrices'LENGTH(l)  =  Full_0utput_Matrices'L£NCTH(2))  then 

raise  Dimension_Error; 

end  if; 

end  Diagonal_Full_Matrix_Add_Unrestricted; 


3.3.6.2.9.15.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  GeneralVectorMatrixAlgebra: 


|  Name  |  Description 


|  Dimension_Error  |  Raised  by  a  routine  when  input  received  has 
j  j  dimensions  incompatible  for  the  type  of 

|  j  operation  to  be  performed 


3.3.6.2.9.15.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  |  Vhen/Vhy  Raised  | 


|  Dimension_Error  |  Raised  if  the  lengths  of  the  matrix  indices  are  not  | 

!  equal  to  each  other  and  other  the  length  of  the  diagonal! 
i  i  matrix  | 


3.3.6.2.9.15.9  LLC5C  DESIGN 


None. 
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3.3.6.2.9.15.10  UNIT  DESIGN 

3.3.6.2.9.15.10.1  "+"  UNIT  DESIGN  (CATALOG  #P452-0) 

This  function  adds  an  m-element  diagonal  matrix  to  an  m  x  m  matrix,  returning 
the  resultant  m  x  m  matrix. 


3.3.6.2.9.15.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.3.6.2.9.15.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.15.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

1  Type 

|  Mode 

|  Description  | 

|  D  Matrix  | 

|  Diagonal  Matrices 

|  In 

|  Input  diagonal  matrix 

|  F  Matrix 

Full  Input  Matrices 

1  In 

|  Input  full  matrix  to  be  added  to 

1  "  1 

the  diagonal  matrix 

3.3.6.2.9.15.10.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 
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|  Name  |  Type 


Value  |  Description 


Answer 

AColIndex 

A_Col_Marker 

A_R°w_Index 
DIndex 
F_Col_Index 
F  Row  Index 


Full_0utput_Ma trices 
Full_Output_Col_Indices 

Full_Output_Col_Indices 

Full_Output_Row_Indices 

Diagonal_Range 

Full_Input_Col_Indices 

Full_Input_Row_Indices 


N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 


Resultant  matrix 
Index  into  second  dimen¬ 
sion  of  Answer  matrix 
Marks  a  column  in  Answer 
matrix  which  contains 
the  diagonal  element  in 
row  A  Row_Index 
Index  Into  first  dimen¬ 
sion  of  Answer  matrix 
Index  into  diagonal 
matrix 

Index  into  second  dimen¬ 
sion  of  F_Matrix 
Index  into  first  dimen¬ 
sion  of  F  Matrix 


3.3.6.2.9.15.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.15.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "+"  (D_Matrix  :  Diagonal_Matrices; 

F_Matrix  :  Full_Input_Matrices)  return  Full_Output_Matrices  is 

— declaration  section- 


Answer 

AColIndex 

A_Col_Marker 

A_Row_Index 

D_Index 

F_Col_Index 

F  Row  Index 


Full_Output_Matrices; 
Full_Output_Col_Indices; 
Full_Output_Col_Indices; 
Ful l~0u  t  pu  t_Row_Ind ices; 
Diagonal_Range ; 
Full_Input_Col_Indices ; 
Full~Input_Row_Indices ; 


—  — begin  function  "+" 


begin 

— first  assign  a  row  full  of  values,  then  add  in  diagonal  element 

A_Col_Marker  :=  Full_Output_Col_Indices'FIRST; 

A~Row_Index  :=  Full~Output_Row_Indices/ FIRST; 

D_Index  :=  Diagonal_Range' FIRST; 

F_R°w_Index  :=  Full_Input_Row_Ind ices'  FIRST; 
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Add  Loop: 
loop 

A_Col_Index  :=  Full  Output_Col_Indices' FIRST; 

F_Col_Index  :=  Full2lnput_Col_Ind ices' FIRST; 

Assign_Loop: 

loop 

Answer (A_Row  Index,  A_Col_Index)  := 

F_Matrix(F_Row_Index,  F_Col_Index) ; 

exit  Assign_Loop 

s/hen  A_Col_Index  =  Full_0utput  Col_Indices'LAST; 
A_Col_Index  :  =  Full_0utput_Col_In3ices' SUCC(A_Col_Index) ; 
F_Col~Index  :  =  Full_Input_Col_Indices'SUCC(F_Col_Index) ; 

end  loop  Assign_Loop; 

Answer (A_Row_Index,  A_Col_Marker)  : = 

Answer (A_Row_Index,  A_Col_Marker)  +  D_Matrix(D_Index) ; 

exit  Add_Loop  when  D_Index  -  Diagonal_Range'LAST; 

A_Col_Marker  :-  Full_Output_Col_Indices'SUCC(A_Col_Marker) ; 
A_Row_Index  :■  Full  Output~Row_Indices'SUCC(A_Row_Index); 
D_Index  :■  D_Index  +1; 

F_R°w_Index  :■  Full_Input_Row_Indices'  SUCC(F_Row_Index) ; 
end  loop  Add_Loop; 
return  Answer; 

end 


3.3.6.2.9.15.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Diagonal_Full_Matrix_Add_- 
Unrestricted: 
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Name 


Type 


|  Description 


Elements 

1 

1 

floating 
point  type 

|  Type  of  elements  in  input  and  | 

1  output  arrays  j 

Diagonal  Range 

1 

1 

integer 

type 

j  Used  to  dimension  Diagonal  Matrices | 

Full  Input  Col_Indices 

discrete 

j  Used  to  dimension  Full_Input_  ; 

matrices  j 

Full  Input  Row  Indices 

1 

discrete 

j  Used  to  dimension  Full  Input  j 

i  matrices  j 

Full  Output_Col  Indices 

1 

1 

discrete 

j  Used  to  dimension  Full_0utput  j 

j  matrices  j 

Full  Output  Row  Indices 

discrete 

j  Used  to  dimension  Full_0utput 
|  matrices  i 

Diagonal  Matrices 

array 

j  Data  type  of  diagonal  input  matrix  j 

Full  Input  Matrices 

1 

array 

j  Data  type  of  full  input  matrix 

1 

Full  Output  Matrices 

1 

1 

array 

I  1 

|  Data  type  of  full  output  matrix  | 

i  i 

3.3.6.2.9.15.10.1.8  LIMITATIONS 


None. 


3.3.6.2.9.16  VECTOROPERATIONSCONSTRAINED  PACKAGE  DESIGN  (CATALOG  #P342-0) 

This  package  contains  functions  which  provide  a  set  of  standard  vector 
operations.  The  operations  provided  are  addition,  subtraction,  and  dot  product 
of  like  vectors,  along  with  a  vector  length  operation. 

The  vectors  operated  upon  by  parts  in  this  part  are  constrained  arrays. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.16.1  REQUIREMENTS  ALLOCATION 

The  following  table  describes  the  allowing  of  requirements  to  this  part: 


1 

Requirements  | 

|  Name 

Allocation  I 

|  Dot  Product 

R063  | 

j  Vector  Length 

R104 

R061 

|  n  -  n 

R062  j 
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3.3.6.2.9.16.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.16.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  defined  at  the  package  specification 
level: 

Data  types: 


|  Name 

Vector_Elements 

Vector_Elements 
Squared 

Indices 


Type 


|  Description 


I 


floating 
point  type 
floating 
point  type 

discrete 

type 


Type  of  elements  to  be  contained  in  vector 
type  defined  by  this  package 
Resulting  type  from  the  operation 
Vector_Elements  *  Vector_Elements;  used 
for  result  of  a  dot  product  operation 
Used  to  dimension  exported  Vectors  type 


Subprograms: 

|  Name  |  Type 

|  Description  | 

(• 


|  »*■ 

|  function 

|  Used  to  define  the  operation 

1 

Vector  Elements  *  Vector  Elements 

Vector~Elements  Squared 

|  SqRt 

|  function 

1  Square  root  function  taking  an  object  of  type 

Vector  Elements  Squared  and  returning  an  object 

1 

1 

j  of  type  VectorJSlements 

3.3.6.2.9.16.4  LOCAL  DATA 
Data  types: 

The  following  table  summarizes  the  types  defined  in  this  part's  specification: 


|  Name 

Range 

|  Description  | 

|  Vectors 

1 

N/A 

|  Constrained,  one-dimensional  i 

j  array  of  elements  | 
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3.3.6.2.9.16.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.16.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 
package  body  Vector_Operations_Constrained  is 

end  Vector_Operat ions_Cons trained ; 


3.3.6.2.9.16.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.2.9.16.8  LIMITATIONS 
None. 


3.3.6.2.9.16.9  LLCSC  DESIGN 
None. 


3.3.6.2.9.16.10  UNIT  DESIGN 

3.3.6.2.9.16.10.1  "+"  (VECTOR  +  VECTORS  VECTORS)  UNIT  DESIGN  (CATALOG  #P343-0) 

This  function  adds  two  vectors  by  adding  each  of  the  individual  elements  in  the 
input  vector,  returning  the  resultant  vector. 


3.3.6.2.9.16.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R061. 


3.3.6.2.9.16.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.16.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name 

1  Type  | 

Mode 

|  Description  | 

|  Left 

|  Vectors  | 

In 

|  One  of  the  vectors  to  be  added  | 

1  Right 

j  Vectors  j 

In 

j  Second  vector  to  be  added  j 

3.3.6.2.9.16.10.1.4 

LOCAL 

DATA 

Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

Description  | 

|  Answer 

|  Vectors 

Vector  being  calculated  and  returned  | 

3.3.6.2.9.16.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.16.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "+"  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors  is 

— declaration  section- 

Answer  :  Vectors; 

—  — begin  function  "+" 

begin 

Process: 

for  Index  in  Indices  loop 

Answer (Index)  :  =  Left (Index)  +  Righ t( Index ) ; 
end  loop  Process; 
return  Answer; 


end  "+"; 
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3.3.6.2.9.16.10,1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  top  level 
component  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  are  defined  in  the 
package  specification  for  Vector_Operations_Constrained: 


|  Name 

1  Type 

Description 

1 

|  Vector  Elements 

|  floating 

Type  of  elements  to  be  contained  in 

vector | 

1 

j  point  type 

type  defined  by  this  package 

|  Indices 

|  discrete 

Used  to  dimension  exported  Vectors 

type 

1 

1  type 

1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Vector_Operations_Cons trained: 


|  Name 

1  Range 

|  Description  | 

|  Vectors 

1 

|  N/A 

1 

|  Constrained,  one-dimensional  | 

j  array  of  elements  j 

3.3.6.2.9.16.10.1.8  LIMITATIONS 


None. 


3.3.6.2.9.16.10.2  (VECTORS  -  VECTORS  VECTORS)  UNIT  DESIGN  (CATALOG  #P344-0) 

This  part  subtracts  one  vector  from  another  by  subtracting  the  individual 
elements  of  each  input  vector,  returning  the  resultant  vector. 


3.3.6.2.9.16.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R062. 

3.3.6.2.9.16.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.2.9.16.10.2.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description 

1 

|  Left 

|  Vectors 

In 

|  Vector  to  act  as 

the 

minuend  | 

I  Right 

j  Vectors 

In 

|  Vector  to  act  as 

the 

subtrahend  j 

3.3.6.2.9.16.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Answer 

|  Vectors 

Vector  being  calculated  and  returned  | 

3.3.6.2.9.16.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.16.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors  is 

— declaration  section- 

Answer  :  Vectors; 

—  — begin  function 

begin 

Process: 

for  Index  in  Indices  loop 

Ansver(Index)  :*  Left(Index)  -  Right(Index) ; 


end  loop  Process; 


CAMP  Software  Detailed  Design  Document 


Page  910 


return  Answer; 
end 


3.3.6.2.9.16.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  top  level 
component  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  for  Vector_Operations_Constrained: 


|  Name 

1  Type  | 

Description  | 

|  Vector  Elements 

! 

|  Indices 

1  1 

|  floating  | 

j  point  type  j 
j  discrete 

1  type  | 

Type  of  elements  to  be  contained  in  vector | 
type  defined  by  this  package  j 

Used  to  dimension  exported  Vectors  type  1 

1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Vector_Operations_Constrained: 

|  Name  |  Range 

|  Description 

1 

|  Vectors  |  N/A 

|  Constrained, 

one-dimensional  | 

j  j  array  of  elements  j 


3.3.6.2.9.16.10.2.8  LIMITATIONS 


None. 


3.3.6.2.9.16.10.3  VECT0R_LENGTH  UNIT  DESIGN  (CATALOG  #P345-0) 

This  function  calculates  the  length  of  a  vector,  returning  the  result.  The 
length  of  a  vector  is  defined  as: 

a  :=  Sqrt(sum  b(i)**2) 


3.3.6.2.9.16.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R104. 
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3.3.6.2.9.16.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.16.10.3.3  INPUT/OUTP'JT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Input 

|  Vectors 

1  In 

|  Vector  for  which  a  length  is  desired  | 

3.3.6.2.9.16.10.3.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

Description  | 

|  Temp 

|  VectorElementsSquared 

Used  for  intermediate  calculations  | 

3.3.6.2.9.16.10.3.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.16.10.3.6  PROCESSING 

The  following  describes  fhe  processing  performed  by  this  part: 

function  Vector_Length  (Input  :  Vectors)  return  Vector_Elements  is 

— declaration  section- 

Temp  :  Vector_Elements_Squared; 

—  — begin  function  Vector_Length 

begin 

Temp  :■  0.0; 


Process: 
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for  Index  in  Indices  loop 
Temp  :=  Temp  + 

Input(Index)  *  Input(Index) ; 
end  loop  Process; 

return  SqRt(Temp); 

end  Vector  Length; 


3.3.6.2.9.16.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  for  Vector_Operations_Constrained: 


|  Name 

1  Type 

Description 

|  Vector  Elements 

|  floating 

Type  of  elements  to  be  contained  in  vector 

point  type 

type  defined  by  this  package 

Vector  Elements 

j  floating 

Resulting  type  from  the  operation 

j  Squared 

[  point  type 

1 

Vector_Elements  *  Vector_Elements;  used 
for  relult  of  a  dot  product  operation 

j  Indices 

|  discrete 

1  type 

Used  to  dimension  exported  Vectors  type 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Vector_Operations_Constrained: 


|  Name 

|  Range 

|  Description  | 

|  Vectors 

1 

|  N/A 

1 

|  Constrained,  one-dimensional 
j  array  of  elements 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 


|  Name  |  Description  j 


|  dimension_error  |  Raised  by  a  routine  when  input  received  has  | 
j  dimensions  incompatible  for  the  type  of  j 

|  operation  to  be  performed  j 
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Subprograms: 

The  following  table  summarizes  the  generic  subroutines  available  to  this  part 
and  defined  at  the  package  specification  level  for  Vector_Operations_- 
Constrained: 


Name  |  Type  |  Description 


•**" 

|  function 

1 

|  Used  to  define  the  operation 
i  Vector_Elements  *  Vector_Elements  :» 
j  Vector_Elements_Squared 

SqRt 

|  function 

1 

1 

|  Square  root  function  taking  an  object  of 
|  Vector_Elements_Squared  and  returning  an 
|  of  type  Vector_Elements 

type 

object 

3.3.6.2.9.16.10.3.8  LIMITATIONS 


None. 


3.3.6.2.9.16.10.4  DOT  PRODUCT  UNIT  DESIGN  (CATALOG  #P346-0) 

This  function  calculates  the  dot  product  of  two  vectors  by  keeping  a  running 
sum  of  the  product  of  each  element  of  the  input  vectors. 

3.3.6.2.9.16.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R063. 


3.3.6.2.9.16.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.16.10.4.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description 

1 

|  Left 

1 

j  Vectors 

1 

In 

|  First  vector 
j  operation 

to  be  used  in  the  dot  product  | 

1 

I  Right 

1 

|  Vectors 

1 

In 

j  Second  vector 
operation 

to  be  used  in  the  dot  product  i 

1 

CAMP  Software  Detailed  Design  Document 


Page  914 


3.3.6.2.9.16.10.4.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  Answer 

i 

Vector  Elements  Squared 

N/A 

|  Result  of  dot  product  ! 

|  operation  j 

3.3.6.2.9.16.10.4.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.16.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Dot_Product  (Left  :  Vectors; 

Right  :  Vectors)  return  Vector_Elements_Squared  is 

—declaration  section 

Answer  :  Vector_Elements_Squared; 

—  — begin  function  Dot_Product 

begin 

Answer  :=»  0.0; 

Process: 

for  Index  in  Indices  loop 

Answer  :=  Answer  +  Left(Index)  *  Right(Index); 
end  loop  Process; 
return  Answer; 
end  Dot  Product; 


3.3.6.2.9.16.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 


UTILIZATION  OF  ANCESTRAL  ELEMENTS: 
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The  following  tables  describe  the  elements  defined  in  this  part's  top  level 
component  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  for  Vector_Operations_Constrained: 


|  Name 


|  Type  |  Description 


Vector_Elements 

Vector_Elements 

Squared 

Indices 


floating 
point  type 
floating 
point  type 

discrete 

type 


Type  of  elements  to  be  contained  in  vector 
type  defined  by  this  package 
Resulting  type  from  the  operation 
Vector_Elements  *  Vector_Elements;  used 
for  result  of  a  dot  product  operation 
Used  to  dimension  exported  Vectors  type 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Vector_Operations_Constrained: 


|  Name 

Range 

|  Description  | 

|  Vectors 

1 

N/A 

|  Constrained,  one-dimensional 
j  array  of  elements 

Subprograms : 

The  following  table  summarizes  the  generic  subroutines  available  to  this  part 
and  defined  at  the  package  specification  level  for  Vector_Operations: 


|  Name 

Type 

Description  | 

|  «*" 

: 

1 

function 

Used  to  define  the  operation  | 

Vector_Elements  *  Vector_Elements 

Vec tor~Elemen t s_Squared 

3.3.6.2.9.16.10.4.8  LIMITATIONS 
None. 


3.3.6.2.9.17  MATRIX_OPERATIONS_CONSTRAINED  PACKAGE  DESIGN  (CATALOG  #P355-0) 

This  package  contains  subroutines  which  provide  a  set  of  standard  operations  on 
matrices  of  like  types. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 
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3.3.6.2.9.17.1  REQUIREMENTS  ALLOCATION 

This  following  illustrates  the  allocation  of  requirements  to  the  units  in  this 
package . 


Requirements 


|  Name 


Allocation 


]  "+"  (matrices  +  matrices) 

j  (matrices  -  matrices) 

j  "+"  (matrices  +  elements) 

j  (matrices  -  elements) 

j  Set_to_Identity_Matrix 
j  Set_to_Zero_Matrix 


R079 

R080 

R075 

R076 

R155 

R156 


3.3.6.2.9.17.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.17.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  at  the  package 
specification  level: 

Data  types: 


|  Name 

Type 

Description  | 

|  Elements 

floating 

Used  to  define  type  of  elements  in  matrix 

1 

point  type 

defined  by  this  package 

|  Col  Indices 

discrete 

Used  to  define  second  dimension  of  exported 

type 

matrix  type 

|  Row  Indices 

discrete 

Used  to  define  first  dimension  of  exported 

type 

matrix  type 

3.3.6.2.9.17.4  LOCAL  DATA 
Data  types: 

The  following  data  type  was  previously  defined  at  the  package  specification 
level: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional 
j  array  of  Elements  i 
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3.3.6.2.9.17.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.17.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General  Vector_Matrix_Algebra) 
package  body  MatrTx_Operations_Constrained  is 

end  Mat  rix_Operations_Cons  trained; 


3.3.6.2.9.17.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.2.9.17.8  LIMITATIONS 
None. 


3.3.6.2.9.17.9  LLCSC  DESIGN 


None. 


3.3.6.2.9.17.10  UNIT  DESIGN 

3.3.6.2.9.17.10.1  "+"  (MATRICES  +  MATRICES  MATRICES)  UNIT  DESIGN  (CATALOG 

#P356-0) 

This  function  adds  two  matrices  by  adding  the  individual  elements  of  each  input 
matrix,  returning  the  resultant  matrix. 


3.3.6.2.9.17.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R079. 


3.3.6.2.9.17.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.17.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name  |  Type  | 

Mode 

Description  | 

|  Left  |  Matrices  | 

In 

|  First  matrix  to  be  added  | 

j  Right  j  Matrices  j 

In 

j  Second  matrix  to  be  added  | 

3.3.6.2.9.17.10.1.4 

LOCAL  DATA 

Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 

|  Name  |  Type 

1 

Description  | 

|  Answer  |  Matrices 

1 

Result  of  adding  the  two  input  matrices  | 

3.3.6.2.9.17.10.1.5 

PROCESS 

CONTROL 

Not  applicable. 


3.3.6.2.9.17.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 

— declaration  section- 

Answer  :  Matrices; 

- begin  function  "+" 

begin 

Row  Loop: 

lor  Row  in  Row_Indices  loop 
Col  Loop: 

lor  Col  in  Col_Indices  loop 

Answer(Row,  Col)  :=  Left(Row,  Col)  + 

Right (Row,  Col); 

end  loop  Col_Loop; 


end  loop  Row_Loop; 


S.f,' 
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return  Answer; 

end 


3.3.6.2.9.17.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  Matrix_Operations_Constrained: 


|  Name 

1 

Type 

1 

Description 

1 

|  Elements 

1 

floating 

1 

Used  to  define  type  of  elements  in  matrix 

1 

point  type 

1 

defined  by  this  package 

j  Col  Indices 

1 

discrete 

Used  to  define  second  dimension  of  exported 

type 

matrix  type 

j  Row  Indices 

1 

discrete 

1 

Used  to  define  first  dimension  of  exported 

1 

type 

1 

matrix  type 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Matrix_Operations_Constrained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional 
j  array  of  Elements  | 

3.3.6.2.9.17.10.1.8  LIMITATIONS 
None. 


3.3.6.2.9.17.10.2  (MATRICES  -  MATRICES  :-  MATRICES)  UNIT  DESIGN  (CATALOG 

#P357-0) 

This  function  subtracts  one  matrix  from  another  by  subtracting  the  individual 
elements  of  the  input  matrices,  returning  the  resultant  matrix. 


3.3.6.2.9.17.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R080. 
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3.3.6.2.9.17.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.17.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  |  Type  | 

Mode 

|  Description 

i 

|  Left  |  Matrices  | 

In 

|  Matrix  to  act  as  the  minuend 

j  Right  j  Matrices  j 

In 

|  Matrix  to  be  used  as  the  subtrahend 

3.3.6.2.9.17.10.2.4 

LOCAL 

DATA 

Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 

|  Name  |  Type 

1 

Description 

i 

|  Answer  |  Matrices 

1 

Result  of  adding  the  two  input  matrices 

i 

3.3.6.2.9.17.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.17.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 

— declaration  section- 

Answer  :  Matrices; 

—  — begin  function 

begin 


Row  Loop: 
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for  Row  in  Row_Indices  loop 
Col  Loop: 

Tor  Col  in  Col_Indices  loop 

Answer(Row,  Col)  :  =  Left(Row,  Col)  - 

Right(Row,  Col); 

end  loop  Col_Loop; 
end  loop  Rov_Loop; 
return  Answer; 

end 


3.3.6.2.9.17.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  MatrixOperationsConstrained: 


1 

Name 

Type 

1 

Description 

1 

r 

Elements 

floating 

T 

Used  to  define  type  of  elements  in  matrix 

i 

point  type 

i 

defined  by  this  package 

1 

i 

Col_Indices 

discrete 

i 

Used  to  define  second  dimension  of  exported 

type 

i 

matrix  type 

1 

Row_Indices 

discrete 

i 

Used  to  define  first  dimension  of  exported 

1 

i 

type 

i 

matrix  type 

1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  Matrix_Operations_Constrained: 


|  Name 

Range 

|  Description  | 

j  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  | 

|  array  of  Elements  | 

3.3.6.2.9.17.10.2.8  LIMITATIONS 


None. 
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3.3.6.2.9.17.10.3  "+"  (MATRICES  +  ELEMENTS  :  =  MATRICES)  UNIT  DESIGN  (CATALOG 

#P358-0) 

This  function  calculates  a  scaled  matrix  by  adding  a  scale  factor  to  each 
element  of  an  input  matrix,  returning  the  resultant  matrix. 


3.3.6.2.9.17.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R075. 


3.3.6.2.9.17.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.17.10.3.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

Type  | 

|  Mode 

|  Description  | 

|  Matrix  | 

Matrices  | 

1  In 

|  Matrix  to  be  scaled 

j  Addend  j 

Elements 

j  In 

j  Scale  factor 

3.3.6.2.9.17.10.3.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type 

|  Description  | 

|  Answer  |  Matrices 

|  Scaled  matrix  | 

3.3.6.2.9.17.10.3.5 

Not  applicable. 

PROCESS  CONTROL 

3.3.6.2.9.17.10.3.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "+"  (Matrix  :  Matrices; 

Addend  :  Elements)  return  Matrices  is 
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— declaration  section- 


Answer  :  Matrices; 


—  — begin  function  "+" 


begin 

Row  Loop: 

lor  Row  in  Rov_Indices  loop 
Col  Loop: 

lor  Col  in  Col_Indices  loop 

Ansver(Rov,  Col)  Matrix(Row,  Col)  +  Addend; 
end  loop  ColJLoop; 
end  loop  Rov_Loop; 

return  Answer; 

end  "+ 


3.3.6.2.9.17.10.3.7  UTILIZATION  OP  OTHER  ELEMENTS 


UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  Matrix_Operations_Constrained: 


|  Name  |  Type  j  Description  | 


|  Elements  |  floating 

Used  to  define  type  of  elements  in  matrix 

1  i  point  type 

defined  by  this  package 

j  Col  Indices  j  discrete 

Used  to  define  second  dimension  of  exported 

!  type 

matrix  type 

|  Row  Indices  |  discrete 

Used  to  define  first  dimension  of  exported 

1  1  type 

matrix  type 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Matrix_Operations_Cons trained: 


|  Name 

|  Range 

|  Description  j 

|  Matrices 

1 

|  N/A 

1 

|  Constrained,  two-dimensional  j 

j  array  of  Elements  j 
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3.3.6.2.9.17.10.3.8  LIMITATIONS 


None. 


3.3.6.2.9.17.10.4  (MATRICES  -  ELEMENTS  :=  MATRICES)  UNIT  DESIGN  (CATALOG 

#P359-0) 

This  function  calculates  a  scaled  matrix  by  subtracting  a  scale  factor  from 
each  element  of  an  input  matrix,  returning  the  resultant  matrix. 


3.3.6.2.9.17.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R076. 


3.3.6.2.9.17.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.17.10.4.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Matrix 

|  Matrices 

1  In 

|  Matrix  to  be  scaled  | 

j  Subtrahend 

|  Elements  : 

1  In 

|  Scale  factor  j 

3.3.6.2.9.17.10.4.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Answer  | 

|  Matrices 

|  Scaled  matrix  | 

3.3.6.2.9.17.10.4.5  PROCESS  CONTROL 


Not  applicable. 
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3.3.6.2.9.17.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Matrix  :  Matrices; 

Subtrahend  :  Elements)  return  Matrices  is 


— declaration  section- 


Answer  :  Matrices; 


—  — begin  function 


begin 

Row  Loop: 

lor  Row  in  Row_Indices  loop 
Col  Loop: 

Tor  Col  in  Col_Indices  loop 

Ansver(Row,  Col)  :-  Matrix(Row,  Col)  -  Subtrahend; 
end  loop  ColLoop; 
end  loop  Rov_Loop; 

return  Answer; 

end 


3.3.6.2.9.17.10.4.7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  Matrix_Operations_Constrained: 


1 

Name 

1 

Type 

1 

Description 

1 

1 

Elements 

1 

floating 

1 

Used  to  define  type  of  elements  in  matrix 

1 

1 

point  type 

defined  by  this  package 

1 

Col  Indices 

discrete 

1 

Used  to  define  second  dimension  of  exported 

1 

type 

matrix  type 

1 

Row  Indices 

1 

discrete 

1 

Used  to  define  first  dimension  of  exported 

1 

1 

1 

type 

1 

matrix  type 

! 
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The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Matrix_Operations_Constrained: 


j  Name 

Range 

|  Description  | 

j  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  | 

|  array  of  Elements 

3.3.6.2.9.17.10.4.8  LIMITATIONS 


None. 


3.3.6.2.9.17.10.5  SET  TO  IDENTITY  MATRIX  UNIT  DESIGN  (CATALOG  #P360-0) 

This  procedure  turns  an  input  matrix  into  an  identity  matrix.  An  identity 
matrix  is  one  in  which  the  diagonal  elements  equal  1.0  and  all  other  elements 
equal  0.0.  The  input  matrix  must  be  a  square  matrix,  but  the  ranges  of  the 
individual  dimensions  do  not  have  to  be  the  same. 


3.3.6.2.9.17.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R155. 


3.3.6.2.9.17.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.17.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

|  Matrix 

Matrices 

Out 

|  Matrix  to  be  made  into  an  identity  matrix  | 

3. ’’.6. 2. 9. 17. 10. 5. 4  LOCAL  DATA 


Data  objects: 

The  following  describes  the  data  objects  maintained  local  to  this  part: 
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|  Name 

1  Type 

Description  | 

|  Col 
j  Row 

|  Col  Indices 
j  Row_Indices 

Index  into  second  dimension  of  matrix 

Index  into  first  dimension  of  matrix  | 

3.3.6.2.9.17.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.17.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices)  is 


— declaration  section 


Col  :  Col_Indices; 
Row  :  Row  Indices; 


—  — begin  procedure  SetToIdentityMatrix 


begin 

— make  sure  input  matrix  is  a  square  matrix 
if  Matrix' LENGTH(l)  *  Matrix' LENGTH(2)  then 

Matrix  (others  *>  (others  ■>  0.0)); 

Col  Col_Ind ices'  FIRST; 

Row  :■  Rcw_Ind ices 'FIRST; 

Row  Loop: 
loop 

— set  diagonal  element  equal  to  1 
Matrix(Rowf  Col)  :-  1.0; 

exit  when  Row  *  Row  Indices 'LAST; 
Col  :-  Col_Indices' SUCC(Col) ; 

Row  :•  Row_Indices'SUCC(Row); 

end  loop  Row_Loop; 


else 

— do  not  have  a  square  matrix 
raise  Dimension  F-ior; 


end  if; 
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end  Set_To_Identity_Matrix; 


3.3.6.2.9.17.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  Matrix_Operations_Constrained: 


|  Name 

1 

Type 

1 

Description 

|  Elements 

1 

floating 

1 

Used  to  define  type  of  elements  in  matrix 

1 

point  type 

1 

defined  by  this  package 

j  Col  Indices 

1 

discrete 

1 

Used  to  define  second  dimension  of  exported 

1 

type 

1 

matrix  type 

j  Row  Indices 

1 

discrete 

Used  to  define  first  dimension  of  exported 

1 

type 

1 

matrix  type 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Matrix_Operations_Constrained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  1 

array  of  Elements  ! 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 


|  Name 

|  Description  | 

|  dimension  error 
" 

1 

|  Raised  by  a  routine  when  input  received  has  | 

(  dimensions  incompatible  for  the  type  of  [ 

|  operation  to  be  performed  j 

3.3.6.2.9.17.10.5.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 
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|  Name 

|  Description  | 

|  Dimension  Error 

|  Raised  if  the  input  matrix  is  not  a  square  matrix  | 

3.3.6.2.9.17.10.6 

SET  TO  ZERO  MATRIX  UNIT  DESIGN  (CATALOG  #P361-0) 

This  procedure  zeros  out  all  elements  of  an  input  matrix. 

3.3.6.2.9.17.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R156. 

3.3.6.2.9.17.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.17.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

Type 

|  Mode 

|  Description  | 

|  Matrix  | 

Matrices 

|  Out 

|  Matrix  to  be  zeroed  out  | 

3.3.6.2.9.17.10.6.4  LOCAL  DATA 
None. 

3.3.6.2.9.17.10.6.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.17.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices)  is 
begin 

Matrix  :*  (others  ->  (others  *>  0.0)); 
end  Set  To  Zero  Matrix; 


1 
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3.3.6.2.9.17.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  ancestral 
components  and  used  by  this  part: 

Data  types: 

The  following  generic  types  are  available  to  this  part  and  defined  at  the 
package  specification  level  of  Matrix_Operations_Constrained: 


|  Name  |  Type  |  Description 


Elements 
Col_Indices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Used  to  define  type  of  elements  in  matrix 
defined  by  this  package 
Used  to  define  second  dimension  of  exported 
matrix  type 

Used  to  define  first  dimension  of  exported 
matrix  type 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  for  MatrixOperationsConstrained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  tvo-dimensional  | 

|  array  of  Elements  j 

3.3.6.2.9.17.10.6.8  LIMITATIONS 


None. 


3.3.6.2.9.18  DYNAMICALLY  SPARSE_MATRIX_OPERATIONS_CONSTRAINED  PACKAGE  DESIGN 
(CATALOG  #P369-<5) 

This  package  defines  a  dynamically  sparse  matrix  and  operations  on  it.  All 
elements  of  the  matrix  are  stored,  but  most  of  the  elements  are  expected  to  be 
0.  Vhich  elements  are  zero  does  not  have  to  remain  the  same.  See 
decomposition  section  for  the  operations  provided. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.18.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 
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3.3.6.2.9.18.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.18.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  described  at  the  package 
specification  level: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


Elements 
Col_Indices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  exported  matrix  type 
Used  to  dimension  exported  matrix  type 
Used  to  dimension  exported  matrix  type 


3.3.6.2.9.18.4  LOCAL  DATA 
Data  types: 

The  following  data  types  were  previously  defined  at  the  package  specification 
level: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  | 

j  array  of  Elements  1 

3.3.6.2.9.18.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.18.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Vector_Matrix_Algebra) 

package  body  Dynamically_Sparse_Matrix_Operations_Constrained  is 


end  Dynamically_Sparse_Matrix_Operations_Cons trained; 
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3.3.6.2.9.18.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.2.9.18.8  LIMITATIONS 


None. 


3.3.6.2.9.18.9  LLCSC  DESIGN 


None. 


3.3.6.2.9.18.10  UNIT  DESIGN 

3.3.6.2.9.18.10.1  SET_TO_IDENTITY_MATRIX  UNIT  DESIGN  (CATALOG  #P370-0) 

This  procedure  sets  a  square  input  matrix  to  an  identity  matrix.  An  identity 
matrix  is  one  where  the  diagonal  elements  all  equal  1.0,  with  the  remaining 
elements  equaling  0.0. 


3.3.6.2.9.18.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 


3.3.6.2.9.18.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.18.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

|  Matrix 

Matrices 

In 

|  Matrix  being  made  into  an  identity  matrix  | 

3.3.6.2.9.18.10.1.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 
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|  Name 

1  Type 

Description 

1 

|  Col 

|  Col  Indices 

Index  into  second 

dimension  of  input  matrix 

j  Row 

j  Row  Indices 

Index  into  first 

dimension  of  input  matrix  ! 

3.3.6.2.9.18.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.18.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices)  is 


— declaration  section 


Col  :  Col_Indices; 
Row  :  Row  Indices; 


- begin  procedure  Set_to_Identity_Matrix 


begin 

— make  sure  input  matrix  is  a  square  matrix 
if  Matrix' LENGTH(l)  -  Matrix' LENGTH(2)  then 

Matrix  :=  (others  »>  (others  =>>  0.0)); 

Col  Col_Ind  ices 'FIRST; 

Row  Row_Ind ices 'FIRST; 

Row  Loop: 
loop 

— set  diagonal  element  equal  to  1.0 
Matrix(Row,  Col)  :-  1.0; 

exit  when  Row  =  Row  Indices' LAST; 
Col  :-  Col_Indices'SUCC(Col) ; 

Row  :»  Row_Indices'SUCC(Row) ; 

end  loop  Row  Loop; 


else 


raise  Dimension  Error; 


end  if; 
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end  Set_to_Identi ty_Matrix; 


3.3.6.2.9.18.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

uata  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynamically_5parse_Matrix_- 
Opera t ions_Cons t rained : 


|  Name  |  Type  |  Description 


Elements 
Col_Indices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  exported  matrix  type 
Used  to  dimension  exported  matrix  type 
Used  to  dimension  exported  matrix  type 


The  following  types  are  defined  in  the  package  specification  for  Dynamically- 
SparseMatrixOperationsCons trained: 


|  Name 

Range 

|  Description  | 

j  Matrices 

I 

N/A 

|  Constrained,  two-dimensional 
|  array  of  Elements  I 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 


|  Name 

|  Description  | 

|  dimension  error 

1 

1 

|  Raised  by  a  routine  when  input  received  has  [ 
dimensions  incompatible  for  the  type  of 
|  operation  to  be  performed  ' 

3.3.6.2.9.18.10.1.8  LIMITATIONS 


The  following  table  describes  the  exceptions  raised  by  this  part: 
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|  Name 

When/Why  Raised  | 

|  Dimension  Error  | 

Raised  if  the  input  matrix  is  not  a  square  matrix  | 

3.3.6.2.9.18.10.2  SET_TO_ZERO_MATRIX  UNIT  DESIGN  (CATALOG  #P371-0) 
This  procedure  sets  all  elements  of  an  input  matrix  to  zero. 

3.3.6.2.9.18.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 

3.3.6.2.9.18.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.18.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

|  Matrix 

Matrices 

In 

|  Matrix  to  be  zeroed  out  | 

3.3.6.2.9.18.10.2.4  LOCAL  DATA 

1 

None. 

3.3.6.2.9.18.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.18.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices)  is 
begin 

Matrix  :-  (others  ->  (others  ->  0.0)); 


end  Set  to  Zero  Matrix; 
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3.3.6.2.9.18.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynamically_Sparse_Matrix_- 
Operations_Cons trained: 


|  Name  |  Type  |  Description 


Elements 
Collndices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  exported  matrix  type 
Used  to  dimension  exported  matrix  type 
Used  to  dimension  exported  matrix  type 


The  following  types  are  defined  in  the  package  specification  for  Dynamically_- 
Sparse_Matrix_Operations_Cons  trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  j 

|  array  of  Elements 

3.3.6.2.9.18.10.2.8  LIMITATIONS 


None. 


3.3.6.2.9.18.10.3  ADD_TO_IDENTITY  UNIT  DESIGN  (CATALOG  #P372-0) 

This  function  takes  a  square  input  matrix  and  adds  it  to  an  identity  matrix  by 
adding  1.0  to  all  diagonal  elements  of  the  input  matrix. 


3.3.6.2.9.18.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 


3.3.6.2.9.18.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.2.9.18.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 


The  following  table 

describes 

this  part's  formal  parameters: 

|  Name 

1  Type 

|  Mode 

Description  | 

|  Input 

|  Matrices 

1  In 

Matrix  to  which  is  added  an  identity  matrix  | 

3.3.6.2.9.18.10.3.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  Matrices 

|  N/A 

|  Result  of  adding  an  identity  matrix 

1 

1 

1 

|  to  the  input  matrix 

j  Col 

|  Col  Indices 

j  N/A 

|  Column  index 

j  Row 

j  Row_Indices 

j  N/A 

|  Row  index 

3.3.6.2.9.18.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.18.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Add  to_Identity  (Input  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices; 

Col  :  Col_Indices; 
Row  :  Row  Indices; 


—  — begin  function  Add_to_Identity 


begin 

— make  sure  input  is  a  square  matrix 
if  Input 'LENGTH(l)  -  Input'LENGTH(2)  then 
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Answer  :=  Input; 

— add  "identity"  values  to  diagonal  elements 
Col  :=  Col  Indices 'FIRST; 

Row  :=  Row_Ind ices'  FIRST; 

Row  Loop: 
loop 

if  Answer(Row,  Col)  /=  0.0  then 

Answer(Row,  Col)  :=  Answer(Row,  Col)  +  1.0; 
else 

Answer(Row,  Col)  :=  1.0; 
end  if; 

exit  when  Row  =  Rov_Indices'LAST; 

Col  ColIndices'SUCC(Col); 

Row  :=  Row_Indices'SUCC(Row); 

end  loop  RowLoop; 


else 


raise  Dimension_Error; 
end  if; 

return  Answer; 
end  Add_to_Identity; 


3.3.6.2.9.18.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynamically_Sparse_Matrix_- 
Operations_Constrained: 


|  Name 

1  Type 

|  Description 

|  Elements 

|  floating 

|  Data 

type  of  elements  in  exported  matrix  type 

|  point  type 

|  Col  Indices 

j  discrete 

j  Used 

to  dimension  exported  matrix 

type 

1  type 

j  Row  Indices 

|  discrete 

j  Used 

to  dimension  exported  matrix 

type 

1  type 

1 
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The  following  types  are  defined  in  the  package  specification  for  Dynamically_- 
Sparse_Matrix_Operations_Cons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  | 

j  array  of  Elements  | 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector  Matrix  Algebra: 


|  Name  | 

Description  | 

|  dimension  error  | 

1  "  I 

1  1 

Raised  by  a  routine  when  input  received  has  | 
dimensions  incompatible  for  the  type  of  j 

operation  to  be  performed 

3.3.6.2.9.18.10.3.8 

LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name 

Vhen/Vhy  Raised  | 

|  Dimension_Error 

Raised  if  the  input  matrix  is  not  a  square  matrix  | 

3.3.6.2.9.18.10.4  SUBTRACT_FROM_IDENTITY  UNIT  DESIGN  (CATALOG  #P373-0) 

This  function  subtracts  a  square  input  matrix  from  an  identity  matrix  by 
negating  all  elements  of  an  input  matrix  and  then  adding  1.0  to  the  elements  on 
the  diagonal. 


3.3.6.2.9.18.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 


3.3.6.2.9.18.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.18.10.4.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 
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The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

1 

|  Matrices 

1 

In 

|  Square  matrix  to  be  subtracted  from  an  | 

j  identity  matrix  j 

3.3.6.2.9.18.10.4.4  LOCAL  DATA 
Data  objects: 

The  following  cable  describes  'he  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  Matrices 

|  N/A 

|  Result  of  subtracting  input  matrix  < 

1 

j  from  an  identity  matrix 

j  Col 

|  Col  Indices 

j  N/A 

j  Column  index 

j  Row 

j  Row  Indices 

j  N/A 

j  Row  index  j 

3.3.6.2.9.18.10.4.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.18.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Subtract_from_Identity  (Input  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices; 

Col  :  Col_Indices; 
Row  :  Rov~Indices; 


—  — i  egin  procedure  Subtract_From_Identity 


begin 

— make  sure  input  is  a  square  matrix 
if  Input 'LENGTH(l)  -  Input' LENGTH(2)  then 

Col  :«  Collnd ices 'FIRST;  j 

Row  :*  Row_Ind ices 'FIRST; 

Row_Loop: 
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loop 

Col  Loop: 

for  Temp_Col  in  Col_Indices  loop 

if  Input(Row,Temp_Col)  /-  0.0  then 

Answer ( Row, Temp_Col)  :=  -  Input(Row,Temp_Col) ; 
else 

Answer(Row,Temp_Col)  :=  0.0; 
end  if; 

end  loop  Col_Loop; 

if  Answer (Row,  Col)  /=  0.0  then 

Answer(Row,  Col)  :=  Answer(Row,  Col)  +  1.0; 
else 

Answer(Row,  Col)  :■  1.0; 
end  if; 

exit  when  Row  -  Row_Indices'LAST; 

Col  ColIndices'SUCC(Col); 

Row  Row_Indices ' SUCC(Row) ; 

end  loop  Row_Loop; 


else 

raise  Dimension_Error; 
end  if; 

return  Answer; 
end  Subtract_From_Identity; 

3.3.6.2.9.18.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynamically  Sparse_Matrix_- 
Opera t ions_Cons t rained : 


1 

Name 

1  Type 

|  Description 

1 

i 

Elements 

|  floating 

j  Data 

type  of  elements  in  exported 

matrix 

type  | 

point  type 

1 

1 

1 

Col  Indices 

j  discrete 

j  Used 

to  dimension  exported  matrix 

type 

1 

I  type 

1 

Row  Indices 

|  discrete 

j  Used 

to  dimension  exported  matrix 

type 

1 

1 

1  type 

1 

1 
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The  following  types  are  defined  in  the  package  specification  for  Dynamically_- 
Sparse_Matrix_Operations_Cons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  | 

1  array  of  Elements 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_Matrix_Algebra: 


|  Name  | 

Description  | 

|  dimension  error  | 

1  "  1 

1  1 

Raised  by  a  routine  when  input  received  has  | 
dimensions  incompatible  for  the  type  of  j 
operation  to  be  performed 

3.3.6.2.9.18.10.4.8 

LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  | 

When/Why  Raised  | 

|  Dimension_Error  | 

Raised  if  the  input  matrix  is  not  a  square  matrix  | 

3.3.6.2.9.18.10.5  "+"  UNIT  DESIGN  (CATALOG  #P374-0) 

This  function  adds  two  sparse  m  x  n  matrices,  by  adding  the  individual  elements 
of  the  input  matrices  taking  advantage  of  the  fact  that  mrs*-  ^f  the  elements  of 
both  matrices  equal  0. 


3.3.6.2.9.18.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 


3.3.6.2.9.18.10.5.2  LOCAL  ENTITIES  DESIGN 


None . 


3.3.6.2.9.18.10.5.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 
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The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

|  Mode  j 

Description 

1 

|  Left 

Matrices 

1  In  1 

Sparse  matrix  to  be  added 

1 

1  Right 

Matrices 

1  In  I 

Sparse  matrix  to  be  added 

1 

3.3.6.2.9.18.10.5.4 

Data  objects: 

LOCAL  DATA 

The  following  table 

describes 

the  data  objects  maintained  by  this  part: 

|  Name 

Type 

|  Value 

|  Description 

1 

|  Answer 

Matrices 

|  N/A 

|  Result  of  adding  two  input  matrices 

1 

3.3.6.2.9.18.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6-2.9.18.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 

— declaration  section 


Answer  :  Matrices; 


—  — begin  function  "+" 


begin 

Row  Loop: 

f  or  Row  in  Row_Indices  loop 
Col  Loop: 

for  Col  in  Col_Indices  loop 

if  Left(Row,  Col)  »  0.0  then 
if  Right(Row,  Col)  -  0.0  then 
Answer (Row,  Col)  :*  0.0; 
else 
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Ansver(Rov,  Col)  :  =  Right(Row,  Col); 
end  if; 

elsif  Right(Row,  Col)  =  0.0  then 

Answer(Row,  Col)  :=  Left (Row,  Col); 
else 

Answer(Row,  Col)  :=  Left(Row,  Col)  + 

Right(Row,  Col); 

end  if; 

end  loop  Col_Loop; 
end  loop  Row_Loop; 
return  Answer; 
end 


3.3.6.2.9.18.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynamically_Sparse_Matrix_- 
Operations_Cons trained: 


|  Name  |  Type  |  Description 


Elements 
Col_Indices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  exported  matrix  type 
Used  to  dimension  exported  matrix  type 
Used  to  dimension  exported  matrix  type 


The  following  types  are  defined  in  the  package  specification  for  Dynamically_- 
Sparse_Matrix_Operations_Cons  trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  | 

j  array  of  Elements  ! 
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3.3.6.2.9.18.10.5.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  When/Why  Raised  | 

|  Dimension_Error 

|  Raised  if  both  matrices  are  not  m  x  n  matrices  | 

3.3.6.2.9.18.10.6  UNIT  DESIGN  (CATALOG  #P375-0) 

This  function  subtracts  two  sparse  m  x  n  matrices  by  subtracting  the  individual 
elements  of  the  input  matrices,  taking  advantage  of  the  fact  that  most  of  the 
elements  of  both  matrices  equal  0. 


3.3.6.2.9.18.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R226. 


3.3.6.2.9.18.10.6.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.18.10.6.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description 

1 

|  Left 

|  Matrices 

1  In 

|  Sparse  matrix 

to  be 

treated  as 

the  minuend  | 

1  Right 

|  Matrices  | 

j  In 

j  Sparse  matrix 

to  be 

treated  as 

the  subtrahend  j 

3.3.6.2.9.18.10.6.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  Matrices 

|  N/A 

|  Result  of  subtracting  two  input  matrices  | 
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3.3.6.2.9.18.10.6.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.18.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices; 


—  — begin  function 


begin 

Row  Loop: 

Tor  Row  in  Rov_Indice?  loop 
Col  Loop: 

Tor  Col  in  Col_Indices  loop 

if  Left(Row,  Col)  -  0.0  then 
if  Right(Row,  Col)  -  0.0  then 
Answer (Row,  Col)  :-  0.0; 
else 

Answer(Row,  Col)  :-  -  Right  (Row,  Col); 
end  if; 

elsif  Right(Row,  Col)  -  0.0  fhen 

Answer(Row,  Col)  :«  Left(Row,  Col); 
else 

Answer(Row,  Col)  :-  Left(Row,  Col)  - 

Right (Row,  Col); 

end  if; 

end  loop  Col_Loop; 
end  loop  Row_Loop; 
return  Answer; 
end 


3.3.6.2.9.18.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 


UTILIZATION  OF  ANCESTRAL  ELEMENTS: 
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The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  visible  to  this  part 
and  defined  in  the  package  specification  for  Dynamically_Sparse_Matrix_- 
OperationsCons trained: 


|  Name  |  Type  j  Description 


Elements 
Col_Indices 
Row  Indices 


floating 
point  type 
discrete 
type 

discrete 

type 


Data  type  of  elements  in  exported  matrix  type 
Used  to  dimension  exported  matrix  type 
Used  to  dimension  exported  matrix  type 


The  following  types  are  defined  in  the  package  specification  for  Dynamically_- 
Sparse_Matrix_Operations_Cons  trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

' 

|  Constrained,  two-dimensional 
j  array  of  Elements 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  General_Vector_'*atrix_Algebra: 


|  Name  j  Description 


|  dimension_error  |  Raised  by  a  routine  when  input  received  has 
;  dimensions  incompatible  for  the  type  of  i 

j  j  operation  to  be  performed  j 


3.3.6.2.9.18.10.6.8  LIMITATIONS 


None. 


3.3.6.2.9.19  SYMMETRIC  FULL_STORAGE_M ATRI X_QPERATI ON S_C0N STRAINED  PACKAGE  DESIGN 
(CATALOG  #P395-0) 

This  package  exports  operations  on  a  symmetric  full  storage  matrix. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 
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3.3.6.2.9.19.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R227. 


3.3.6.2.9.19.2  LOCAL  ENTITIES  DESIGN 


Subprograms: 

There  exists  a  sequence  of  statements  at  the  end  of  this  package  body  which  are 
executed  when  this  part  is  elaborated.  The  code  checks  to  ensure  a  square 
matrix  has  been  instantiated.  If  not,  a  Dimension_Error  exception  is  raised. 


3.3.6.2.9.19.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  at  the  package 
specification  level: 

Data  types: 


|  Name  |  Type  |  Description  | 


|  Elements  |  floating  |  Data  type  of  elements  in  exported  matrix 

j  j  point  type  j  type  j 

j  Collndices  j  discrete  type  j  Used  to  dimension  exported  matrix  type 

j  Row_Indices  j  discrete  type  j  Used  to  dimension  exported  matrix  type  | 


3.3.6.2.9.19.4  LOCAL  DATA 


Data  types: 

The  following  types  are  previously  defined  in  this  part's  package 
specification: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  | 

j  array  of  Elements 

3.3.6.2.9.19.5  IROCESS  CONTROL 
Not  applicable. 


CAMP  Software  Detailed  Design  Document 


Page  949 


3.3.6.2.9.19.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Vector_Matrix_Algebra) 

package  body  Symmetric_Full_Storage_Matrix_Operations_Constrained  is 


— processing  for  Symmetric_Full_Storage_ 

— Matrix_Operations_Constrained  package  body 


begin 

if  Matrices' LENGTH(l)  /-  Matrices'  LENGTH ( 2 )  then 
raise  Dimension_Error; 
end  if; 

end  Symmetric_Full_Storage_Matrix_Operations_Cons trained; 


3.3.6.2.9.19.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  elements  are  required  by  this  part  and  defined  elsevhere  in  the 
TLCSC. 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  for  G«.neral_Vector_Matrix_Algebra. 


|  Name  |  Description 


|  Dimension_Error  |  Raised  by  a  routine  or  package  when  input  received  has  | 

!  dimensions  incompatible  for  the  type  of  operation  to  j 

|  |  be  performed  j 


3.3.6.2.9.19.8  LIMITATIONS 
None. 

3.3.6.2.9.19.9  LLCSC  DESIGN 


None. 
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3.3.6.2.9.19.10  UNIT  DESIGN 

3.3.6.2.9.19.10.1  CHANGE_ELEMENT  UNIT  DESIGN  (CATALOG  #P399-0) 

This  procedure  changes  the  indicated  element  of  a  symmetric  matrix,  along  with 
its  symmetric  counterpart. 


3.3.6.2.9.19.10.1.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.2.9.19.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.19.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  New  Value 

|  Elements 

In 

|  New  value  to  be  placed  in  the  matrix  | 

j  Row 

|  Rov  Indices 

In 

j  Rov  in  which  the  value  belongs  i 

|  Col 

j  Col  Indices 

In 

j  Column  in  vhich  the  value  belongs  j 

j  Matrix 

j  Matrices 

In/Out 

j  Matrix  being  updated  j 

3.3.6.2.9.19.10.1.4  LOCAL  DATA 


None. 


3.3.6.2.9.19.10.1.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.19.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Change_Element  (Nev_Value  :  in  Elements; 

Row  :  in  Rov_Indices; 

Col  :  in  Col_Indices; 

Matrix  :  in  out  Matrices)  is 


— declaration  section- 
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S_Col  :  Col_Indices; 
S  Row  :  Row  Indices; 


—  — begin  procedure  Change_Element- 


begin 

S_Col  :=  Col_Indices'VAL(Row_Indices'POS(Row)  - 

Row_Indices'POS(Row_Ind ices' FIRST)  + 
Col_Indices'POS(Col_Indices' FIRST)) ; 

S_Row  :  =  Row_Indices'VAL(Col_Indices'POS(Col)  - 

Col_Indices ' POS(Col_Indices ' FIRST)  + 
Rowlnd ices '  POS  ( Row_Indi  ces '  FIRST ) ) ; 

Matrix (Row,  Col)  :  =  New_Value; 

Matrix(S_Row,  S_Col)  New_Value; 

end  Change_Element ; 


3.3.6.2.9.19.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Operations_Cons trained: 


|  Name 


I  Type 


|  Description 


|  Elements 

|  floating 

Data 

type  of  elements  in  exported  matrix 

1 

j  point  type 

type 

|  Col  Indices 

j  discrete  type 

Used 

to  dimension  exported  matrix 

type 

j  Row_Indices 

j  discrete  type 

Used 

to  dimension  exported  matrix 

type 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_Operations_- 
Constrained: 


|  Name 

Range 

j  Description  | 

|  Matrices 

I 

N/A 

|  Constrained,  two-dimensional  | 

i  array  of  Elements  j 
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3.3.6.2.9.19.10.1.8  LIMITATIONS 


None. 


3.3.6.2.9.19.10.2  SET  TO  IDENTITY  MATRIX  UNIT  DESIGN  (CATALOG  #P400-0) 

This  procedure  turns  an  input  matrix  into  an  identity  matrix.  An  identity 
matrix  is  one  where  all  elements  equal  0.0,  except  those  on  the  diagonal  which 
equal  1.0.  The  input  matrix  must  be  a  square  matrix. 


3.3.6.2.9.19.10.2.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.2.9.19.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.19.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

|  Matrix 

Matrices 

Out 

|  Matrix  to  be  made  into  an  identity  matrix  | 

3.3.6.2.9.19.10.2.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  local  data  maintained  by  this  part: 


|  Name 

1  Type 

Value 

|  Description 

1 

|  Col 

|  Col  Indices 

N/A 

|  Index  into  second 

dimension 

of 

matrix  | 

j  Row 

|  Row~Indices 

N/A 

j  Index  into  first 

dimension 

of 

matrix  1 

3.3.6.2.9.19.10.2.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.19.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices)  is 


— declaration  section 


Col  :  Col_Indices; 
Row  :  Row  Indices; 


—  — begin  procedure  Set_to_Identity_Matrix 


begin 

Matrix  :«  (others  ->  (others  ->  0.0)); 

Col  :*  Col_Ind ices 'FIRST; 

Row  Row_Ind ices' FIRST; 

Row  Loop: 
loop 

— set  diagonal  element  equal  to 
Matrix(Rov,  Col)  :■  1.0; 

exit  when  Row  «  RowIndices'LAST; 
Col  :«  ColIndices'SUCC(Col); 

Row  :«  Row_Indices'SUCC(Row); 

end  loop  Row_Loop; 

end  Set_To_Identity_Matrix; 


3.3.6.2.9.19.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Operations_Constrained: 
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|  Name 

1  Type 

Description 

1 

|  Elements 

|  floating 

Data  type  of  elements  in  exported 

matrix  j 

j 

j  point  type 

type 

j 

j  Col  Indices 

j  discrete  type 

Used  to  dimension  exported  matrix 

type  j 

j  Row  Indices 

j  discrete  type 

Used  to  dimension  exported  matrix 

type  j 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_Operations_- 
Cons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 
! 

N/A 

|  Constrained,  two-dimensional  | 

|  array  of  Elements  | 

3.3.6.2.9.19.10.2.8  LIMITATIONS 
None. 

3.3.6.2.9.19.10.3  SET  TO  ZERO  MATRIX  UNIT  DESIGN  (CATALOG  #P401-0) 
This  procedure  zeros  out  all  elements  of  an  input  matrix. 

3.3.6.2.9.19.10.3.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.2.9.19.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.19.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


j  Name 

1  Type 

|  Mode 

|  Description  | 

|  Matrix  | 

|  Matrices 

|  Out 

|  Matrix  to  be  zeroed  out  | 
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3.3.6.2.9.19.10.3.4  LOCAL  DATA 
None. 


3.3.6.2.9.19.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.19.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices)  is 
begin 

Matrix  :=  (others  *>  (others  =>  0.0)); 
end  Set  To  Zero  Matrix; 


3.3.6.2.9.19.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Operations_Constrained: 


|  Name  |  Type  |  Description 


Elements 

Col_Indices 
Row  Indices 


floating  |  Data  type  of  elements  in  exported  matrix 
point  type  j  type 

discrete  type  j  Used  to  dimension  exported  matrix  type  I 

discrete  type  j  Used  to  dimension  exported  matrix  type 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_Operations_- 
Cons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  | 

j  w.rray  of  Elements  j 
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3.3.6.2.9.19.10.3.8  LIMITATIONS 


None. 


3.3.6.2.9.19.10.4  ADD_TO_IDENTITY  UNIT  DESIGN  (CATALOG  #P402-0) 

This  function  adds  an  input  matrix  to  an  identity  matrix,  returning  the 
resultant  matrix.  The  addition  is  performed  by  adding  1.0  to  each  diagonal 
element  of  the  input  matrix. 


3.3.6.2.9.19.10.4.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.2.9.19.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.19.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

the  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

|  Matrices 

In 

|  Matrix  to  be  added  to  an  identity  matrix  | 

3.3.6.2.9.19.10.4.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type  j  Value  |  Description  | 


|  Answer  j  Matrices  |  N/A  |  Result  of  adding  identity  matrix  to  input  | 
j  >]  j  j  matrix  j 
j  Col  |  Col_Indices  j  N/A  j  Index  into  second  dimension  of  matrices  j 
j  Row  j  Row_Indices  j  N/A  j  Index  into  first  dimension  of  matrices  j 


3.3.6.2.9.19.10.4.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.19.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Add  to  Identity  (Input  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices; 

Col  :  Col_Indices; 

Row  :  Row~Indices; 


—  — begin  function  Add_to_Identity 


begin 

Answer  :«  Inprt; 

Col  :«  Collndices' FIRST; 

Row  :-  Row_Indices' FIRST; 

Access_Diagonal_Elemen ts : 
loop 

Answer(Row,Col)  Answer (Row, Col)  +  1.0; 

exit  when  Row  -  Rov  Indices' LAST; 

Col  J-  Col_Indices'5UCC(Col) ; 

Row  Row_Indices'SUCC(Row); 

end  loop  Access_Diagonal_Elements; 

return  Answer; 

end  Add_to_Identity; 


3.3.6.2.9.19.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Operat ions_Cons t rained : 
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|  Name 

1  Type 

Description 

1 

|  Elements 

|  floating 

Data  type  of  elements  in  exported 

matrix  | 

1 

j  point  type 

type 

1 

Col  Indices 

|  discrete  type 

Used  to  dimension  exported  matrix 

type  i 

j  Row  Indices 

|  discrete  type 

Used  to  dimension  exported  matrix 

type  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_0perations_- 
Cons trained: 


|  Name 

Range 

|  Description  1 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional 
j  array  of  Elements 

3.3.6.2.9.19.10.4.8  LIMITATIONS 
None. 

3.3.6.2.9.19.10.5  SUBTRACTFROMIDENTITY  UNIT  DESIGN  (CATALOG  #P403-0) 

This  function  subtracts  an  input  matrix  from  an  identity  matrix,  returning  the 
resultant  matrix. 

3.3.6.2.9.19.10.5.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.2.9.19.10.5.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.19.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

1 

|  Matrices 

1 

In 

|  Matrix  to  be  subtracted  from  an  identity  | 

j  matrix  j 
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3.3.6.2.9.19.10.5.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type  |  Value  |  Description 


Answer 

|  Matrices 

1 

N/A 

Row 

|  Row  Indices 

1 

N/A 

SCol 

j  Col_Indices 

1 

N/A 

S  Row 

j  Row  Indices 

1 

1 

1 

N/A 

Result  of  adding  input  matrices 
Row  index  into  matrix 
"Symmetric"  column  index  into  matrix 
"Symmetric"  row  index  into  matrix; 
i.e.,  A(row,col)  :=  A(s  row,s  col) 


3.3.6.2.9.19.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.19.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Subtractfromldentity  (Input  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices; 

Row  :  Row_Indices; 

S_Col  :  Col_Indices; 

S  Row  :  Row  Indices; 


- begin  function  Subtract_from  Identity 


begin 

— handle  first  diagonal  element 

Answer (Row_Ind ices 'FIRST,  Col  Indices 'FIRST) 

1.0  -  Input(Row_Indices' FIRST,  Col_Indices' FIRST); 

— will  subtract  the  remaining  of  the  input  matrix  from  an  identity  matrix 
— by  doing  the  following: 

—  o  subtracting  the  nondiagonal  elements  in  the  bottom  half  of  the 

matrix  from  0.0, 

—  o  assigning  values  obtained  in  the  bottom  half  of  the  matrix  to  the 

symmetric  elements  in  the  top  half  of  the  matrix,  and  then 

—  o  subtracting  the  diagonal  elements  from  1.0 

— S_Col  will  go  across  the  columns  as  Row  goes  down  the  rows  to  keep 

H  ' 
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—  track  of  the  column  containing  the  diagonal  element 
S_Col  :=  Col_Ind ices' SUCC(Col_Indices' FIRST); 

Row  :=  Row_Indices' SUCC(Row_Indices' FIRST) ; 
Do_Every_Row_Except_First : 
loop 

— S_Row  will  go  down  the  rows  as  Col  goes  across  the  columns 
S_Row  :=*  Row  Indices' FIRST; 

Subtract_Noncfiagonal  Elements_From  Zero: 
for  Col  in  Col  Indices' FIRST  . .~ 

Col_Indices'VAL(Rov_Indices'  POS(Row)  -  1)  loop 

Answer (Row, Col)  :=  -  Input (Row, Col ) ; 

Answer(S_Row,S_Col)  :-  Answer  (Row,  Col); 

S_Row  :*  Row_Indices' SUCC(S_Rov) ; 

end  loop  Subtract_Nondiagonal_Elements_From_Zero; 

— subtract  diagonal  element  from  1.0 
Answer(Row,  S_Col)  :=>  1.0  -  Input(Row,  S_Col); 

exit  when  Row  »  Row  Indices' LAST; 

SCol  ColIndices'SUCC(SCol); 

Row  s-  RowIndices'SUCC(Row); 

end  loop  Do_Every_Rov_Except_First; 

return  Answer; 

end  Subtract_from_Identity; 


3.3.6.2.9.19.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Opei:ations_Cons  trained: 


|  Name 

Type 

Description 

1 

|  Elements 

floating 

Data  type  of  elements  in  exported 

matrix  ; 

point  type 

type 

1 

|  Col  Indices 

discrete 

type 

Used  to  dimension  exported  matrix 

type  i 

j  Row_Indices 

discrete 

type 

Used  to  dimension  exported  matrix 

type  j 
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The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_Operations_- 
Cons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

N/A 

|  Constrained,  two-dimensional 

1 

|  array  of  Elements 

3.3.6.2.9.19.10.5.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

Vhen/Why  Raised  | 

|  Dimension  Error 

Raised  if  input  matrix  is  not  a  square  matrix  | 

3.3.6.2.9.19.10.6  "+"  UNIT  DESIGN  (CATALOG  #P404-0) 

This  function  adds  two  symmetric  matrices  by  adding  the  individual  elements  of 
the  input  matrices,  taking  advantage  of  their  symmetric! ty. 

3.3.6.2.9.19.10.6.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.2.9.19.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.19.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Left 

|  Matrices 

In 

|  First  matrix  to  be  added  | 

j  Right 

j  Matrices 

In 

j  Second  matrix  to  be  added  j 
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3.3.6.2.9.19.10.6.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


Name 

Type 

1 

Value 

Answer 

Matrices 

1 

N/A 

Row 

Row  Indices 

1 

N/A 

SCol 

Col  Indices 

1 

N/A 

S  Row 

Row  Indices 

1 

1 

N/A 

Description 


Result  of  adding  two  input  matrices 
Index  into  first  dimension  of  matrix 
Used  to  keep  track  of  column  containing 
diagonal  element  for  the  current  row 
When  used  with  S_Col,  marks  the  symmetric 
counterpart  to  the  element  being 
referenced  in  the  bottom  half  of  the 
array;  i.e.,  A(row,col)  -  A(s  row,s  col) 


3.3.6.2.9.19.10.6.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.19.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices; 

Row  :  Row_Indices; 
S_Col  :  Col_Indices; 
S  Row  :  Row  Indices; 


—  — begin  function  "+" 


begin 

— handle  first  diagonal  element 

Answer (Row_Ind ices' FIRST,  Col  Indices' FIRST)  :  = 

Left(Row_Indices' FIRST,  CoT  Indices 'FIRST)  + 

Right (Row_Indices' FIRST,  CoT_Indices' FIRST) ; 

— addition  calculations  will  only  be  carried  out  on  the  bottom  half 
— of  the  input  matrices  followed  by  assignments  to  the  symmetric 
— elements  in  the  top  half  of  the  matrix 

— as  Row  goes  down  the  rows,  S  Col  will  go  across  the  columns  to  keep 
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— track  of  the  column  containing  the  diagonal  element 
SCol  :=  Col_Indices' SUCC(Col_Indices' FIRST) ; 

Row  :=  Row_Indices'SUCC(Row_Indices' FIRST); 

Do_All_Rows_Except_First : 
loop 

— as  Col  goes  across  the  columns,  S_Row  will  go  down  the  rows; 

S  Row  :  =  Row_Indices' FIRST; 

A<Id  Bottom_Half_Elements: 

lor  Col  in  Col_Indices' FIRST  .. 

Col_Indices'VAL(Rov_Indices'POS(Row)  -  1)  loop 

— add  elements  in  bottom  half  of  the  matrix 
Answer (Row, Col)  :=  Left(Row,  Col)  +  Right(Row,  Col); 

— assign  value  to  symmetric  element  in  top  half  of  matrix 
Answer(S_Row,S_Col)  :-  Answer(Row,  Col); 

S_Row  :  =  Row_Indices' SUCC(S_Row) ; 

end  loop  Add_Bottom_Half_Elements; 

— add  diagonal  elements  together 

Answer (Row,  S_Col)  Left (Row, S_Col)  +  Right (Row, S_Col) ; 

exit  when  Row  »  Row_Indices'LAST; 

SCol  :«  Col_Indices'SUCC(S  Col); 

Row  :■  Row_Indices'SUCC(RowJ; 

end  loop  Do_All_Rows_Except_First; 

return  Answer; 

end  "+"; 


3.3.6.2.9.19.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Operations_Cons trained: 


Name 


I  Type 


|  Description 


|  Elements 

|  floating 

Data 

type  of  elements  in  exported  matrix  | 

I 

I  point  type 

type 

1 

|  Col  Indices 

j  discrete  type 

Used 

to  dimension  exported  matrix 

type 

j  Row  Indices 

j  discrete  type 

Used 

to  dimension  exported  matrix 

type  | 
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The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_0perations_- 
Cons trained: 


|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  i 

j  array  of  Elements 

3.3.6.2.9.19.10.6.8  LIMITATIONS 


None. 


3.3.6.2.9.19.10.7  UNIT  DESIGN  (CATALOG  #P407-0) 

This  function  subtracts  two  symmetric  input  matrices  by  subtracting  the 
individual  elements  of  the  input  matrices,  taking  advantage  of  their 
symmetricity. 


3.3.6.2.9.19.10.7.1  REQUIREMENTS  ALLOCATION 


See  top  header. 


3.3.6.2.9.19.10.7.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.19.10.7.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description 

1 

|  Left 

|  Matrices 

In 

|  Matrix  to  be 

subtracted  from  | 

1  Right 

|  Matrices 

In 

j  Matrix  to  be 

used  as  the  subtrahend  j 

3.3.6.2.9.19.10.7.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 
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Name 

1 

Type 

1 

Value 

|  Description 

Answer 

1 

Matrices 

1 

N/A 

|  Result  of  adding  two  input  matrices 

Row 

1 

Row  Indices 

1 

N/A 

|  Index  into  first  dimension  of  matrix 

SCol 

! 

1 

Col  Indices 

1 

N/A 

1  Used  to  keep  track  of  column  containing 

1  diagonal  element  for  the  current  row 

S  Row 

Row  Indices 

N/A 

|  When  used  with  S  Col,  marks  the  symmetric 

counterpart  to  the  element  being 
referenced  in  the  bottom  half  of  the 
array;  i.e.,  A(row,col)  *  A(s  rov,s  col) 


3.3.6.2.9.19.10.7.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.19.10.7.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


— declaration  section 


Answer  :  Matrices; 

Row  :  Row_Indices; 

S_Col  :  Col_Indices; 

S_Row  :  Row  Indices; 


—  — begin  function 


begin 

— handle  first  diagonal  element 
Answer(Row_Indices' FIRST,  Col  Indices' FIRST) 

Left(Row_Ind ices 'FIRST,  CoT  Indices' FIRST)  - 
Right(Row_Indices' FIRST,  CoI_Indices ' FIRST) ; 

— subtraction  calculations  will  only  be  carried  out  on  the  bottom  half 
— of  the  input  matrices  followed  by  assignments  to  the  symmetric 
— elements  in  the  top  half  of  the  matrix 

— as  Row  goes  down  the  rows,  S_Col  will  go  across  the  columns  to  keep 
—  track  of  the  column  containing  the  diagonal  element 
S_Col  Col_Indices'SUCC"%i\_Indices' FIRST); 

Row  :=  Row_Indices'SUCC(Row_Ind  ices  'FIRST); 

Do_All_Rows_Except_First: 

loop 
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— as  Col  goes  across  the  columns,  S_Rov  will  go  down  the  rows; 
S_Row  :=  Row_Ind ices' FIRST; 

Subtract_Bottom_Half  Elements: 
for  Col  in  Col_IncIices' FIRST  .. 

Coi_Indices'VAL(Row_Indices'POS(Row)  -  1)  loop 

— subtract  elements  in  bottom  half  of  the  matrix 
Answer(Row,Col)  :=  Left(Row,  Col)  -  Right(Row,  Col); 

— assign  value  to  symmetric  element  in  top  half  of  matrix 
Ansver(S_Rov,S_Col)  :  =  Answer (Row,  Col); 

S_Row  :a  Row_Indices'SUCC(S_Rov); 

end  loop  Subtract_Bottom_Half_Elements; 

--subtract  diagonal  elements  together 

Ansver(Row,  S_Col)  Lef t(Row,S_Col)  -  Right(Rov,S_Col) ; 

exit  when  Row  *  Row_Ind ices' LAST; 

SCol  :=  Col_Indices'SUCC(S_Col); 

Row  :*  Row_Indices'SUCC(Row); 

end  loop  Do_All_Rows_Except_First; 

return  Answer; 

end 


3.3.6.2.9.19.10.7.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
ore  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  visible  to  this  part  and 
defined  at  the  package  specification  level  of  Symmetric_Full_Storage_Matrix_- 
Operations_Constrained: 


|  Name  |  Type  |  Description 


|  Elements 

|  floating 

Data 

type  of  elements  in  exported  matrix  | 

1 

i  point  type 

type 

|  Col  Indices 

j  discrete  type 

Used 

to  dimension  exported  matrix 

type 

|  Row  Indices 

j  discrete  type 

Used 

to  dimension  exported  matrix 

type 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Symmetric_Full_Storage_Matrix_Operations_- 
Cons trained: 
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|  Name 

Range 

|  Description  | 

|  Matrices 

1 

N/A 

|  Constrained,  two-dimensional  | 

j  array  of  Elements  j 

3.3.6.2.9.19.10.7.8  LIMITATIONS 
None. 

3.3.6.2.9.20  VECTOR_SCALAR_OPERATIONS_CONSTRAINED  PACKAGE  DESIGN  (CATALOG  #P422-0) 

This  package  provides  a  set  of  functions  to  multiply  and  divide  each  element  of 
a  vector  by  a  scalar. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.20.1  REQUIREMENTS  ALLOCATION 

The  following  table  describes  the  allocation  of  requirements  to  the  units  in 
this  part: 


1 

|  Requirements  | 

|  Name 

j  Allocation  | 

|  »*« 

|  R065  | 

|  "/" 

|  R066  | 

3.3.6.2.9.20.2 

LOCAL  ENTITIES  DESIGN 

None. 

3.3.6.2.9.20.3 

INPUT/OUTPUT 

GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  previously  in  this 
part's  package  specification: 


CAMP  Software  Detailed  Design  Document 


Page  968 


|  Name  |  Type  |  Description 


Elementsl 

Elements2 

Scalars 

Indices 

Vectorsl 

Vectors2 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
type 
array 
array 


Type  of  elements  in  a  vector; 

Elementsl  :=  Elements2  *  Scalars 
Type  of  elements  in  a  vector; 

Elements2  :  =  Elementsl  /  Scalars 
Type  of  value  to  be  used  for 
multiplying  and  dividing 
Used  to  dimension  vectors 

An  array  of  Elementsl 
An  array  of  Elements2 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

| 

|  function 

|  Used  to  define  the  operation  ; 

1 

1 

Elementsl  Elements2  *  Scalars  [ 

j  "/" 

|  function 

|  Used  to  define  the  operation 

1 

1 

j  Elements2  :-  Elementsl  /  Scalars  j 

3.3.6.2.9.20.4  LOCAL  DATA 


None. 


3.3.6.2.9.20.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.20.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 

package  body  Vector_Scalar_Operations_Cons trained  is 

end  Vec  tor_Scalar_Opera t ions_Cons  t rained ; 


3.3.6.2.9.20.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


»*  * 
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3.3.6.2.9.20.8  LIMITATIONS 
None. 

3.3.6.2.9.20.9  LLCSC  DESIGN 
None. 

3.3.6.2.9.20.10  UNIT  DESIGN 

3.3.6.2.9.20.10.1  UNIT  DESIGN  (CATALOG  #P423-0) 

This  function  calculates  a  scaled  vector  by  multiplying  each  element  of  an 
input  vector  by  a  scale  factor. 

3.3.6.2.9.20.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R065. 

3.3.6.2.9.20.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

c 

3.3.6.2.9.20.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

4 

1  Type  | 

|  Mode 

|  Description  | 

|  Vector 

|  Vectors2  | 

1  In 

|  Vector  to  be  scaled  | 

j  Multiplier  | 

|  Scalars 

In 

j  Scale  factor 

3.3.6.2.9.20.10.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

Description  | 

|  Answer 

|  Vectorsl 

Scaled  vector  | 
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3.3.6.2.9.20.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.20.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Vector  :  Vectors2; 

Multiplier  :  Scalars)  return  Vectorsl  is 

— declaration  section- 

Answer  :  Vectorsl; 

—  — begin  function 

begin 

Process: 

for  Index  in  Indices  loop 

Ansver(Index)  :-  Vector(Index)  *  Multiplier; 
end  loop  Process; 
return  Answer; 
end 


3.3.6.2.9.20.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Veetor_ScalarJ)perations_- 
Cons trained: 
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1 

Name 

Type 

Description 

1 

1 

Elementsl 

floating 

Type  of  elements  in  a  vector; 

« 

1 

point  type 

Elementsl  :=  Elements2  *  Scalars 

1 

Elements2 

floating 

Type  of  elements  in  a  vector; 

1 

point  type 

Elements2  :=  Elementsl  /  Scalars 

1 

I 

Scalars 

floating 

Type  of  value  to  be  used  for 

1 

1 

point  type 

multiplying  and  dividing 

1 

Indices 

discrete 

Used  to  dimension  vectors 

1 

type 

Vec torsi 

array 

An  array  of  Elementsl 

1 

Vectors2 

array 

An  array  of  Element s2 

1 

Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
as  generic  formal  subprograms  to  Vector_Scalar_Operations_Constrained  package: 


|  Name 

1  Type 

|  Description  | 

i  n*it 

1 

|  function 

1 

|  Used  to  define  the  operation  | 

j  Elementsl  :-  Elements2  *  Scalars  j 

3.3.6.2.9.20.10.1.8  LIMITATIONS 
None. 


3.3.6.2.9.20.10.2  "/"  UNIT  DESIGN  (CATALOG  #P424-0) 

This  function  calculates  a  scaled  vector  by  dividing  each  element  of  an  input 
vector  by  a  scale  factor.  ' 


3.3.6.2.9.20.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R066. 


3.3.6.2.9.20.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.20.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name 

Type 

Mode 

|  Description 

|  Vector 

Vectorsl 

In 

|  Vector  to  be  scaled  | 

j  Divisor 

Scalars 

In 

j  Scale  factor  I 

3.3.6.2.9.20.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  describes  the  local  data  maintained  by  this  part: 


|  Name 

1  Type 

Description  | 

|  Answer 

|  Vectors2 

Scaled  vector  | 

3.3.6.2.9.20.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.20.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "/"  (Vector  :  Vectorsl; 

Divisor  :  Scalars)  return  Vectors2  is 

— declaration  section- 

Answer  :  Vectors2; 

—  — begin  function  Vec tor_Scalar_Divide 

begin 

Process: 

for  Index  in  Indices  loop 

Answer(Index)  :*  Vector(Index)  /  Divisor; 
end  loop  Process; 
return  Answer; 


end  "/"; 
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3.3.6.2.9.20.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Vector_Scalar_Operations_- 
Constrained: 


1 

Name 

Type 

Description  | 

1 

Elements 1 

floating 

Type  of  elements  in  a  vector; 

1 

point  type 

Elementsl  :•  Elements2  *  Scalars 

1 

Elements2 

floating 

Type  of  elements  in  a  vector; 

1 

point  type 

Elements2  :=»  Elementsl  /  Scalars 

Scalars 

floating 

Type  of  value  to  be  used  for 

1 

point  type 

multiplying  and  dividing 

1 

Indices 

discrete 

Used  to  dimension  vectors 

1 

type 

1 

Vectorsl 

array 

An  array  of  Elementsl 

1 

Vectors2 

array 

An  array  of  Elements2 

Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
as  generic  formal  subprograms  to  Vector_Scalar_Operations_Constrained  package: 


|  Name 

1  Type 

|  Description  | 

|  "/" 

1 

|  function 

1 

|  Used  to  define  the  operation 

Elements2  :■  Elementsl  /  Scalars 

3.3.6.2.9.20.10.2.8  LIMITATIONS 


None. 


3.3.6.2.9.21  MATRIX_SCALAR_OPERATIONS_CONSTRAINED  PACKAGE  DESIGN  (CATALOG  #P428-0) 

This  package  provides  a  set  of  functions  vhich  will  scale  a  matrix  by 
multiplying  or  dividing  each  element  of  the  matrix  by  a  scale  factor. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 
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3.3.6.2.9.21.1  REQUIREMENTS  ALLOCATION 

The  following  table  describes  the  axlocation  of  requirements  to  the  parts  in 
this  LLCSC: 


1 

|  Requirements  | 

|  Name 

Allocation  j 

|  »*" 

|  R073  | 

1  "/" 

1  R074  1 

3.3.6.2.9.21.2 

LOCAL  ENTITIES  DESIGN 

None. 

3.3.6.2.9.21.3 

INPUT/OUTPUT 

GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  described  in  this  pa 
package  specification: 

Data  types: 

|  Name 

Type 

Description  | 

Element si 

floating 
point  type 

Type  of  elements  in  an  array 

Elements2 

floating 
point  type 

Type  of  elements  in  an  array 

Scalars 

floating 
point  type 

Data  type  of  objects  to  be  used  as 
Tiltipliers  and  divisors 

Col 

discrete 

Used  to  dimension  second  dimension  of 

Indices 

type 

matrices 

Row 

discrete 

Used  to  dimension  first  dimension  of 

Indices 

type 

matrices 

Matricesl 

array 

Two  dimensional  matrix  with  elements 
of  type  Elementsl 

Matrices2 

array 

Two  dimensional  matrix  with  elements 
of  type  Elements2 

Subprograms : 

|  Name 

Type 

Description  | 

|  "*»  | 
1 

function 

Function  to  define  the  operation  | 

Elementsl  *  Scalars  :-  Elements2 

|  "/" 

1 

function 

Function  to  define  the  operation  j 

Elements2  /  Scalars  :■  Elementsl 
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3.3.6.2.9.21.4  LOCAL  DATA 


None. 


3.3.6.2.9.21.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.21.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General  Vector_Matrix_Algebra) 

package  body  MatrIx_Scalar_Operations_Constrained  is 

end  Matrix  Scalar  Operations  Constrained; 


3.3.6.2.9.21.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 


3.3.6.2.9.21.8  LIMITATIONS 
None. 


3.3.6.2.9.21.9  LLCSC  DESIGN 


None. 


3.3.6.2.9.21.10  UNIT  DESIGN 

3.3.6.2.9.21.10.1  UNIT  DESIGN  (CATALOG  IP429-0) 

This  function  calculates  a  scaled  matrix  by  multiplying  each  element  of  an 
input  matrix  by  a  scalar. 


3.3.6.2.9.21.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R073. 


3.3.6.2.9.21.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.2.9.21.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

|  Matrix 

Matricesl 

In 

|  Matrix  to  be  scaled  | 

j  Multiplier 

Scalars 

In 

j  Scale  factor 

3.3.6.2.9.21.10.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

|  Description 

1 

|  Answer 

Matrices2 

|  Scaled  matrix 

1 

3.3.6.2.9.21.10.1.5 

Not  applicable. 

PROCESS  CONTROL 

« 

3.3.6.2.9.21.10.1.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Matrix  :  Matricesl; 

Multiplier  :  Scalars)  return  Matrices2  is 

— declaration  section- 

Answer  :  Matrices2; 

—  — begin  function 

begin 

Row  Loop: 

lor  Row  in  Row_Indic.es  loop 


Col_Loop: 

for  Col  in  Col_Indices  loop 
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Ansver(Rov,  Col)  :■  Matrix(Row,  Col)  *  Multiplier; 
end  loop  Col_Loop; 
end  loop  Rov_Loop; 
return  Answer; 
end 


3.3.6.2.9.21.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Matrix_Scalar  Operations: 


|  Name 

Type 

Description  | 

|  Elementsl 

1 

floating 
point  type 

Type  of  elements  in  an  array 

|  Elements2 

floating 
point  type 

Type  of  elements  in  an  array 

|  Scalars 

floating 

Data  type  of  objects  to  be  used  as 

1 

point  type 

multipliers  and  divisors 

|  Col 

discrete 

Used  to  dimension  second  dimension  of 

|  Indices 

type 

matrices 

j  Row 

discrete 

Used  to  dimension  first  dimension  of 

j  InHices 

type 

matrices 

j  Matricesl 

1 

array 

Two  dimensional  matrix  with  elements 
of  type  Elementsl 

|  Matrices2 

1 

array 

Two  dimensional  matrix  with  elements 
of  type  Elements2 

Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
as  generic  formal  subroutines  to  the  Matrix_Scalar_Operations_Constrained 
package . 


|  Name 

1  Type 

|  Description  | 

|  "*» 

1 

|  function 

1 

|  Function  to  define  the  operation  | 

Elementsl  *  Scalars  :=  Elements2  j 
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3.3.6.2.9.21.10.1.8  LIMITATIONS 


None. 


3.3.6.2.9.21.10.2  "/"  UNIT  DESIGN  (CATALOG  IP430-0) 

This  function  calculates  a  scaled  matrix  by  dividing  each  element  of  an  input 
matrix  by  a  scale  factor. 


3.3.6.2.9.21.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R074. 


3.3.6.2.9.21.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.21.10.2.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Matrix 

|  Matrices2 

1  In 

|  Matrix  to  be  scaled 

j  Divisor 

j  Scalars 

1  In 

j  Scale  factor 

3.3.6.2.9.21.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

|  Description 

i 

|  Answer 

Matricesl 

|  Scaled  matrix 

1 

3.3.6.2.9.21.10.2.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.2.9.21.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  "/"  (Matrix  :  Matrices2; 

Divisor  :  Scalars)  return  Matricesl  is 


— declaration  section- 


Answer  :  Matricesl; 


—  — begin  function  "/' 


begin 

Row  Loop: 

lor  Row  in  Rowlndices  loop 
ColLoop: 

for  Col  in  Collndices  loop 

Answer(Row,  Col)  :-  Matrix(Row,  Col)  /  Divisor; 
end  loop  ColLoop; 
end  loop  RowLoop; 
return  Answer; 
end  "/"; 

3.3.6.2.9.21.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Matrix  Scalar  Operations: 


Vv^V* 
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1 

Name 

Type 

Description  | 

1 

Elementsl 

floating 

Type  of  elements  in  an  array 

point  type 

1 

Elements2 

floating 

Type  of  elements  in  an  array 

1 

point  type 

• 

1 

Scalars 

floating 

Data  type  of  objects  to  be  used  as 

1 

point  type 

multipliers  and  divisors 

1 

Col 

discrete 

Used  to  dimension  second  dimension  of 

Indices 

type 

matrices 

1 

Row 

discrete 

Used  to  dimension  first  dimension  of 

1 

Indices 

type 

matrices 

1 

Matricesl 

array 

Two  dimensional  matrix  with  elements 

1 

of  type  Elementsl 

1 

Matrices2 

array 

Two  dimensional  matrix  with  elements 

1 

of  type  Elements2 

Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
as  generic  formal  subroutines  to  the  Matrix_Scalar_Operations_Constrained 
package . 


|  Name 

1  Type 

Description  | 

|  «*» 

|  function 

Function  to  define  the  operation 

1 

Elementsl  *  Scalars  :■  Element s2 

|  "/" 

j  function 

Function  to  define  the  operation 

1 

1 

Elements2  /  Scalars  Elementsl 

3.3.6.2.9.21.10.2.8  LIMITATIONS 


None. 


3.3.6.2.9.22  VECTOR_MATRIX_MULTIPLY_UNRESTRICTED  PACKAGE  DESIGN  (CATALOG  #P437-0) 

This  package  contains  a  function  which  multiplies  a  1  x  m  vector  by  an  m  x  n 
matrix  producing  a  1  x  n  vector.  If  the  length  of  the  vector  is  not  the  same 
as  the  length  of  the  first  dimension  of  the  matrix  a  DIMENSI0N_ERR0R  exception 
is  raised.  None  of  the  ranges  need  to  be  the  same. 

The  function  in  this  package  can  be  made  to  handle  sparse  matrices  and/or 
vectors  by  tailoring  the  imported  "+"  and  functions  (see  sections 
describing  generic  formal  subprograms  and  calling  sequence). 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
par  t : 
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|  Name 

|  Catalog  _# 

| 

|  P1051-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.22.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.2.9.22.2  LOCAL  ENTITIES  DESIGN 


Subprograms : 

This  package  contains  code  which  checks  the  lengths  of  the  indices  used  to 
instantiate  the  package  to  ensure  the  sizes  of  the  input  vector,  input  matrix, 
and  output  vector  are  compatible  with  the  operation  to  be  performed. 


3.3.6.2.9.22.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  vhen  this  part  was 
specified  in  the  package  specification  of  General_Vector_Matrix_Algebra: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 


|  Type  |  Description 


Input_Vector_Elements 

Matrix_Elements 

Output_Vector_Elements 

Col_Indices 

Row_Indices 

Input_Vector_Ind.ices 

Output_Vector_Indices 

Input_Matrices 

Input_Vectors 

Output_Vectors 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
type 

discrete 

type 

discrete 

discrete 

array 

array 

array 


Type  of  elements  in  the  input  vector 

Type  of  elements  in  the  input  matrix 

Type  of  elements  in  the  output 
vector 

Used  to  dimension  second  dimension 
of  input  matrix 

Used  to  dimension  first  dimension 
of  input  matrix 

Used  to  dimension  input  vector 
Used  to  dimension  output  vector 
Data  type  of  input  matrix 
Data  type  of  input  vector 
Data  type  of  output  vector 


CAMP  Software  Detailed  Design  Document 


Page 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part.  This  function  can  be  made  to  handle  sparse  matrices  and/or  vectors  by 
tailoring  the  imported  functions  to  check  the  appropriate  element(s)  for  zero 
before  performing  the  indicated  operation. 


|  Name 

1  Type 

j  Description 

1 

| 

|  function 

1 

|  Function  *  .ing  the  operation 

j  Input_V  i_Elements  *  Matrix  Elements  := 

i  Output  Vector  Elements 

1 

1 

1 

ft  .  *f 

|  function 

1 

1 

1 

j  Function  defining  the  operation 
j  Output_Vector_Elements  + 
j  Output_Vector_Elements  :■ 
j  Output_Vector_Elements 

1 

1 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  unit  contained 
in  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Vector 
j  Matrix  j 

|  InputVectors 
j  Input_Matrices 

|  lxra  vector  to 
|  mxn  matrix  to 

be  used  in  the  calculation 
be  usedin  the  calculation 

3.3.6.2.9.22.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  the  unit  in  this 
part: 


i  Name 

1 

Type 

1 

Value 

|  Description 

|  Answer 

1 

Output  Vectors 

1 

N/A 

|  Result  vector  being  calculated 

j  MV 

1 

1 

Input_Vector_ 

Indices 

i 

1 

N/A 

|  Index  into  the  1  x  m  input  vector 

1 

|  N_A 

1 

Output_Vector_ 

Indices 

1 

N/A 

|  Index  into  the  n  x  1  output  vector 

1 

1  N 

1 

Col  Indices 

1 

1 

N/A 

|  Column  index  into  the  mxn  input 
|  matrix 

1  M 

I 

Row  Indices 

1 

N/A 

j  Row  index  into  the  mxn  input 

matrix 
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3.3.6.2.9.22.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.22.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector  Matrix  Algebra) 

package  body  Vector_MatrIx_MultTply_Unrestricted  is 

function  (Vector  :  Input_Vectors; 

Matrix  :  Input_Matrices)  return  Output_Vectors  is 


— declaration  section- 


Answer  :  Output_Vectors  :«  (others  ■>  0.0); 
M_V  :  Input_Vector_Indices; 

N_A  :  Output  Vector_Indices; 

N  :  Col_In3ices; 

M  :  Row  Indices; 


—  --begin  function 


begin 

N_A  :*  Output  Vector  Indices 'FIRST; 

N  :«  Col_IntIices ' FIRST ; 

NLoop : 
loop 

M_V  Input  Vector  Indices 'FIRST; 

M  Row_Ind ices'  FIRST; 

M_Loop: 

loop 

Answer  (N_A)  :=  Answer (N_A)  +  Vector(M  V)  *  Matrix(M,  N); 

exit  when  M  -  Row  Indices' LAST; 

M  Row_Ind ices' SUCC(M); 

M_V  :=  Input_Vector_Indices'SUCC(M_V); 

end  loop  M_Loop; 

exit  when  N  =  Col_Indices' LAST; 

N  :=  Col_Indices' SUCC(N) ; 

N_A  :=  Output_Vector_Indices' SUCC(N_A) ; 

end  loop  N_Loop; 


return  Answer; 
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end 


— begin  package  Vector_Matrix_Multiply_Unrestricted 


begin 

—  — make  sure  package  has  been  instantiated  with  the  correct  dimensions; 

—  — the  following  dimensions  are  expected:  [lxmj  *  [mxn]  »>  [lxn] 

if  Input_Vec tors' LENGTH  /=  Input_Matrices' LENGTH(l)  or  — m's  not  equal 
Input_Matrices'LENGTH(2)  /■  Output_Vectors'  LENGTH  then  — n's  not  equal 

raise  Dimension_Error; 

end  if; 

end  Vector_Matrix_Multiply_Unrestricted; 


3.3.6.2.9.22.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  General_Vector_Matrix_Algebra: 


|  Name  | 

Description  | 

|  Dimension  3rror  | 

1  ‘  i 

1  1 

Raised  by  a  routine  or  package  when  input  received  has 
dimensions  incompatible  with  the  type  of  operation  to 
be  performed 

3.3.6.2.9.22.8  LIMITATIONS 

The  following  table 

describes  the  exceptions  raised  by  this  part: 

|  Name  | 

When/Why  Raised  | 

|  Dimension  Error  | 

1  "  I 

Raised  if  the  sizes  of  the  data  objects  are  incompatible  | 
for  the  multiplication  operation  j 
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3.3.6.2.9.22.9  LLCSC  DESIGN 


None. 


3.3.6.2.9.22.10  UNIT  DESIGN 


None. 


3.3.6.2.9.23  ABA  TRANS  DYNAM_SPARSE_MATRIX_SQ_MATRIX  PACKAGE  DESIGN  (CATALOG 
#P1066-(5) 

This  package  contains  a  function  which  does  an  ABA  transpose  multiply  on  a 
dynamically  sparse  matrix  (m  x  n)  and  a  square  (n  x  n)  matrix,  yielding  a 
square  matrix.  The  first  multiply  (A*B)  is  constrained  and  the  second  (AB  * 
transpose  A)  is  restricted. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  ABA  Transpose 

|  P1067-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.23.1  REQUIREMENTS  ALLOCATION 
This  part  meets  requirement  R. 


3.3.6.2.9.23.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.23.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 
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|  Name  |  Type  |  Description 


AElements 

BElements 

CElements 

MIndices 

N_Indices 

A_Ma trices 
B  Matrices 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
type 

discrete 

type 

array 

array 


Type  of  element  in  the  dynamically  sparse  input 
matrix 

Type  of  element  in  the  square  input  matrix 

Type  of  element  in  the  output  vector 

Used  to  dimension  the  1st  dimension  of  the 
sparse  input  matrix 

Used  to  dimension  the  2nd  dimension  of  the 
sparse  matrix  and  both  dimensions  of  the 
square  matrix 

Data  type  of  the  dynamically  sparse  input 
matrix 

Data  type  of  the  square  input  matrix 


C  Matrices 


array 


Data  type  of  the  output  matrix 


Subprograms: 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description 

1 

|  «*" 

1 

function 

Function  defining  the  operation  AElements 
:-  C  Elements 

*  BElements 

1 

1 

function 

Function  defining  the  operation  C_Elements 
:=  C_Elements 

*  A_Elements 

3.3.6.2.9.23.4  LOCAL  DATA 


None. 


3.3.6.2.9.23.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.23.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 

package  body  ABA_Trans_Dynam_Sparse_Matrix_Sq_Matrix  is 


function  Sparse_Lef t_Multiply(Lef t  :  A_Elements; 

Right  :  B  Elements  )  return  A_Elements  is 


Answer  :  A  Elements; 
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begin 

If  Left  *  0.0  then 
Answer  :=  0.0; 
else 

Answer  :=  Left  *  A_Elements(  Right  ); 
end  if; 

return  Answer; 
end  Sparse_Lef t_Multiply; 


function  Sparse_Right_Multiply(  Left  :  A_Elements; 

Right  :  A_Elements  )  return  C_Elements  is 

Answer  :  C_Elements; 
begin 

If  Right  «  0.0  then 
Answer  :=  0.0; 
else 

Answer  :=  C_Elements(  Left  *  Right  ); 
end  if; 

return  Answer; 
end  Sparse_Right_Multiply; 


function  MatrixMultiply  is  new  MatrixMatrixMultiplyRestricted 


(  Left_Elements  «> 
Right_Elements  -> 
Output_Elements  ■> 
M_Indices  «> 

N_Indices  -> 

P_Indices  -> 

Left_Mat rices  => 
Right_Matrices  «> 
0utput_Ma trices  ~> 
=> 


A_Eltments, 

B_Elements, 

AElements, 

MIndices, 

N_Indices, 

N_Indices , 

A_Matrices, 

B_Mat rices, 

A_Matrices, 

Sparse  Left 


Multiply  ); 


function  Matrix_Transpose_Multiply  is  new 

Matrix  Matrix  Transpose  Multiply  Restricted 


(  Lef t_Elements  => 
Right_Elements  ■> 
0utput_Elements  ■> 
M_Indices  => 

N_Indices  ■> 

P_Indices  => 

Lef t_Matrices  => 
Right  Matrices  => 


A_Elements, 

A_Elements, 

C~Elements, 

M_Indices, 

N~Indicesf 

M_Indices, 

A_Matrices, 

A  Matrices, 


Output  Matrices  =>  C  Matrices, 


=>  Sparse_Right_Multiply  ); 


function  ABA_Transpose(  A 

B 


A_Matrices; 

B_Ma trices  ) 
return  C  Matrices  is 
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Intermediate  :  A_Ma trices; 
Answer  :  C_Matrices; 

begin 


-  multiply  A  *  B  - 


Intermediate  :=  Matrix_Multiply(  Left  «>  A, 

Right  «>  B  ); 


-  multiply  AB  *  transpose  of  A  - 

Answer  :«  Matrix_Transpose_Multiply(  Left  ■>  Intermediate, 

Right  ->  A  ); 

return  Answer; 
end  ABATranspose; 

end  ABA_Trans_Dynam_Spar se_Ma  t  r ix_Sq_Ma  t  r ix ; 


3.3.6.2.9.23.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP-LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  this  top-level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  ancestral  units: 


|  Name 

1  Type 

|  Source) 

Description 

I  Matrix  Matrix  Multiply 

|  generic 

|  GVMA  | 

Used  to  multiply  the  sparse 

Restricted 

function 

1  ! 

matrix  by  the  square  matrix 

|  Matrix  Matrix  Transpose 

|  generic 

j  GVMA  j 

Used  to  multiply  the  product 

Multiply 

j  function 

!  1 

of  the  first  operation  by 

1  i 

the  transpose  of  the  sparse 

1 

1  1 

matrix 

3.3.6.2.9.23.8  LIMITATIONS 


None. 
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3.3.6.2.9.23.9  LLCSC  DESIGN 


None. 


3.3.6.2.9.23.10  UNIT  DESIGN 


None. 


3.3.6.2.9.24  AB A_TRAN S_VECTOR_SQ_MATRI X  PACKAGE  DESIGN  (CATALOG  IP1068-0) 

This  package  contains  a  function  which  does  an  ABA  transpose  multiply  on  a 
vector  (1  x  m)  and  a  square  (m  x  m)  matrix,  yielding  a  scalar  value. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  ABA  Transpose 

|  P1069-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.24.1  REQUIREMENTS  ALLOCATION 
This  part  meets  requirement  R. 


3.3.6.2.9.24.2  LOCAL  ENTITIES  DESIGN 


Subprograms: 

The  following  table  summarizes  the  subroutines  which  are  local  to  this  part: 


Name 

1  Type 

Multiply_VM 

|  function 

1 

Multiply  W 

|  function 

Vector  Matrix 

|  function 

Multiply 

1 

1 

Vector  Vector 

1 

|  function 

Description 


Multiply 


Function  defining  the  operation  Vector_ 
Elements  *  Matrix_Elements  :«  Vector_" 
Elements 

Function  defining  the  operation  Vector_ 
Elements  *  Vector_Elements  :*  Scalars- 
Function  defining  a  vector  matrix  multipli¬ 
cation  Input_Vectors  *  Input_Matrices  := 
Output_Vectors.  Instantiation  of  GVMA. 
Vector_Matrix  Multiply_Res trie ted 
Function  defining  a  vector  vector  mv’tiply 
(dot  product)  Vectors  *  Vectors  :=  Scalars 
Instantiation  of  GVMA.Dot_Product_ 
Operations  Restricted 
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3.3.6.2.9.24.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  j  Description 


Vector_ 

Elements 

Matrix_ 

Elements 

Scalars 

Indices 

Vectors 

Matrices 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
type 
array 
array 


Type  of  element  in  the  input  vector. 

Typ<~  of  element  in  the  sqaure  input  matrix. 

Type  of  element  in  the  output  scalar 

Used  to  dimension  the  input  vector  and  both 
dimensions  of  the  input  matrix 
Data  type  of  the  input  vector 
Data  type  of  the  square  input  matrix 


Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name  | 

1  Type  1 

|  Description  | 

1  1 

S  i 

function  | 

|  Function  defining  the  operation  Vector_Elements  *  | 

j  Matrix  Elements  :«  Vector  Elements 

1  »*•'  j 
1  1 

function  | 

Function  defining  the  operltion  Vector_Elements  * 
Vector_Elements  :■  Scalars  j 

3.3.6.2.9.24.4  LOCAL  DATA 
None. 

3.3.6.2.9.24.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.9.24.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 
package  body  ABA_Trans_Vector_Sq_Matrix  is 

function  Multiply_VM(  Left  :  Vector_Elements; 
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Right  :  Matrix_Elements  )  return  Vector_Elements  is 

begin 

return  Left  *  Vector_Elements(  Right  ); 
end  Multiply_VM; 


function  Multiply _W(  Left  :  VectorJElements; 

Right:  VectorJElements  )  return  Scalars  is 

begin 

return  Scalars(  Left  )  *  Scalars(  Right  ); 
end  Multiply_W; 


function  Vector  Matrix  Multiply  is  new  Vector  Matrix  Multiply  Restricted 


(  Input_Vector_Elements  -> 
Matrix_Elements  ■> 

Output_Vector_Elements  ■> 
Indicesl  *■> 

Indices2  «> 

Input_Vectors  -> 

Input_Matrices  -> 

Output_Vectors  -> 

“  »> 


VectorJElements, 
Mat rix_Elements , 
Vector_Elements, 
Indices, 

Indices, 

Vectors, 

Matrices, 

Vectors, 

Multiply  VM  ); 


function  VectorVectorMultiply  is  nev  Dot_Product_Operations_Restricted 
(  Left  Elements  ->  Vector  Elements, 


RightElements 

ResulI_Elements 

Indices 

Lef t_Vectors 

Right_Vectors 

h*ii 


>  Vector_Elements, 
■>  Scalarl, 

■>  Indices, 

»=>  Vectors, 

«>  Vectors, 

«>  Multi  ply  _W  ); 


function  ABA_Transpose(  A  :  Vectors; 

B  :  Matrices  )  return  Scalars  is 

Partial_Ansver  :  Vectors; 

Answer  :  Scalars; 

begin 


-  multiply  A  *  B  - 


Partial_Answer  :=  Vector_Matrix_Multiply(  Vector  =>  A, 

Matrix  =>  B  ); 


-  multiply  AB  *  transpose  of  A  - 


Answer  :=  Vector  Vector_Multiply(  Left  =>  Partial_Answer, 
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Right  ■=>  A  ); 


return  Answer; 
end  ABA_Transpose; 
end  ABA_Trans_Vector_Sq_Matrix; 


3.3.6.2.9.24.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP-LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  this  top-level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  ancestral  units: 


|  Name 

Type  | Source 

Description  | 

|  Vector  Matrix  Multiply 

generic  |  GVMA 

Used  to  multiply  the  input 

j  Restricted 

function  j 

vector  by  the  square  matrix 

|  Dot  Product  Multiply 

generic  j  GVMA 

Used  to  multiply  the  product 

!  Restriced 

function  j 

of  the  first  operation  by 

1 

1 

the  transpose  of  the  input 

1 

1 

vector 

3.3.6.2.9.24.8  LIMITATIONS 
None. 


3.3.6.2.9.24.9  LLCSC  DESIGN 
None. 


3.3.6.2.9.24.10  UNIT  DESIGM 


None. 


3.3.6.2.9.25  ABA_TRANS_VECTOR_SCALAR  PACKAGE  DESIGN  (CATALOG  #P1070-0) 

This  package  contains  a  function  which  does  an  ABA  transpose  multiply  on  a 
vector  (m  x  1)  and  a  scalar  value,  yielding  a  square  (m  x  m)  matrix. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part : 
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|  Name 

|  Catalog  _# 

|  ABA  Transpose 

|  P1071-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.25.1  REQUIREMENTS  ALLOCATION 
This  part  meets  requirement  R. 


3.3.6.2.9.25.2  LOCAL  ENTITIES  DESIGN 


Packages : 

The  following  table  summarizes  the  packages  which  are  local  to  this  part: 


|  Name 

1  Type 

|  Description  | 

|  VS  Opns 

1 

1 

1 

|  package 

1 

1 

1 

|  Package  defining  Vector  Scalar  operations. 

|  Only  multiply  operator  is  used.  Instantia- 
t  tion  of  GVMA.Vector_Scalar_Operations_ 
j  Constrained 

Subprograms : 

The  following  table  summarizes  the  subroutines  which  are  local  to  this  part: 


|  Name 


j  Type  |  Description 


Multiply_VS 


Divide  VS 


WTranspose 

Multiply 


function 


function 


function 


Function  defining  the  operation  Vector_ 
Elements  *  Scalars  :■  Vector_Elements.  Used 
in  instantiation.  Used  in  instantiation  of 
Vector_Scalar  Operations_Cons trained 
Function  proviHed  defining  operation  Vector_ 
Elements  /  Scalars  :■  Scalars.  Provided 
for  instantiation.  Not  used  in  any  compu¬ 
tations.  Used  in  instantiation  of  Vector_ 
Scalar_Operations_Cons trained 
Function  defining  a  matrix  transpose  multiply 
A_Matrices  *  transpose  A_Matrices  := 
C_Matrices.  Instantiation  of  GVMA.Matrix_ 
Matrix_Transpose_Multiply 
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0 

3.3.6.2.9.25.3  INPUT/OUTPUT  v 

GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


1 

Name 

Type 

|  Description  | 

1 

Vector 

floating 

|  Type  of  element  in  the  input  vector. 

1 

Elements 

point  type 

1 

1 

Matrix 

floating 

|  Type  of  element  in  the  square  output  matrix. 

1 

Elements 

point  type 

1 

1 

Scalars 

floating 

j  Type  of  element  in  the  output  scalar 

1 

point  type 

1 

Indices 

discrete 

|  Used  to  dimension  the  input  vector  and  the 

I 

type 

!  square  output  matrix 

1 

Vectors 

array 

j  Data  type  of  the  input  vector 

1 

Matrices 

array 

j  Data  type  of  the  square  output  matrix 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description  | 

|  «*« 

1 

function 

Function  defining  the  operation  VectorElements  * 

Scalars  :  =  Vector  Elements  j 

|  «*.. 

1 

function 

Function  defining  the  operation  Vector_Elements  *  j 

Vector_Elements  :«  Matrix_Elements  j 

3.3.6.2.9.25.4  LOCAL  DATA 


None. 


3.3.6.2.9.25.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.25.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 
package  body  ABA_Trans  Vector_Scalar  is 

_ _ _  $ 

—  —  Operators  provided  for  instantiations  - 
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function  Multiply_VS(  Left  ;  Vector_Elements; 

Right  :  Scalars  )  return  Vector_Elements  is 

begin 

return  Left  *  Vector_Elements(  Right  ); 
end  Multiply_VS; 


—  —  This  operator  is  not  used,  but  is  required  for  the  instantiation.  - 

—  —  It  is  "dummied"  out  to  make  it  as  small  as  possible. 


function  Divide_VS(  Left  :  Vector_Elements; 

Right  :  Scalars  )  return  Vector_Elements  is 

begin 

return  Left; 
end  Divide  VS; 


function  Multiply _W(  Left  :  Vector_Elements; 

Right  :  Vector_Elements  )  return  Matrix_Elements  is 

begin 

return  Matrix_Elements(  Left  )  *  Matrix_Elements(  Right  ); 
end  Multiply_W; 


-  Instantiations  for  ABA  transpose  - 


package  VSOpns  is  new  Vector_Scalar_Operations_Constrained 
(  Elementsl  «>  Vector_Elements, 

Vector_Elements, 

Scalars, 

Indices, 

Vectors, 

Vectors 
Multipl 


Element  < 
Scalars 
Indices 
Vectorsl 
Vectors2 
"*« 

«  fW 


VS 

Divide  VS  ); 


use  VS_Opns; 


function  W_Transpose_Multiply  is  new 

Vector  Vector  Transpose  Multiply  Restricted 


(  Left  Vector_Elements 
Right_Vector_Elements 
Matrix_Elements 
Indicesl 
Indices2 
Lef t_Vectors 
Right_Vectors 
Matrices 


=>  Vector_Elements, 
=>  Vector_Elements, 
=>  Matrix_Elements, 
=>  Indices, 

=>  Indices, 

=>  Vectors, 

=>  Vectors, 

=>  Matrices, 

=>  Multiply  W  ); 
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function  ABA_Transpose(  A  s  Vectors; 

B  :  Scalars  )  return  Matrices  is 

Partial_Answer  :  Vectors; 

Answer  :  Matrices; 

begin 


-  multiply  A  *  B  - 
Partial  Answer  :■  A  *  B; 


-  multiply  AB  *  transpose  of  A  - 

Answer  W_Transpose_Multiply(  Left  *>  Partial_Answer, 

Right  «>  A  ); 

return  Answer; 
end  ABA_Transpose; 
end  ABA_Trans  Vector_Scalar; 


3.3.6.2.9.25.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP-LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  this  top-level  component: 

Packages : 

The  following  table  summarizes  the  external  packages  required  by  this  part: 


|  Name 

1  Type 

| Source 

Description  | 

|  Vector_Scalar_ 
|  Operations_ 
j  Constrained 

|  generic 
j  package 

1 

|  GVMA 

1 

1 

Package  allowing  operation  Vectors  * 
Scalars  Vectors. 

Subprograms  and 

task  entries: 

The  following  table  summarizes  the  external  subroutines  and  task  entries 
required  by  this  part: 

|  Name 

1  Type 

| Source 

Description  | 

|  Matrix  Matrix_ 
J  Transpose 

1  Multiply 

|  generic 
j  function 

1 

|  GVMA 

1 

1 

Function  allowing  the  operation  vector  | 
*  transpose  vector  :=  Matrices.  j 

1 
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3.3.6.2.9.25.8  LIMITATIONS 
None. 

3.3.6.2.9.25.9  LLCSC  DESIGN 


None. 


3.3.6.2.9.25.10  UNIT  DESIGN 


None. 


3.3.6.2.9.26  COLUMNMATRIXOPERATIONS  PACKAGE  DESIGN  (CATALOG  #P1072-0) 

This  package  defines  a  column  matrix  which  contains  a  column  vector  which  is 
set  on  one  of  the  columns  of  the  matrix  and  a  diagonal,  which  can  only  have  the 
values  of  1  or  0  on  the  diagonal.  It  provides  operations  on  that  type.  See 
the  top  level  decomposition  section  for  a  list  of  the  operations  provided. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.2.9.26.1  REQUIREMENTS  ALLOCATION 
This  part  meets  requirement  R. 


3.3.6.2.9.26.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.9.26.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


Vector_ 

Elements 

Indices 

Vectors 


floating 
point  type 
discrete 
type 
array 


Type  of  element  in  the  column  matrix's  column 
vector 

Used  to  dimension  the  column  matrix  and  the 
vector  in  the  column  matrix 
Data  type  of  the  vector  in  the  column  matrix 
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3.3.6.2.9.26.4  LOCAL  DATA 


None. 


3.3.6.2.9.26.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.26.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector  Matrix_Algebra) 
package  body  Column_MatrIx_Operations  is 

end  Column_Matrix_Operations; 


3.3.6.2.9.26.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.2.9.26.8  LIMITATIONS 
None. 

3.3.6.2.9.26.9  LLCSC  DESIGN 


None. 


3.3.6.2.9.26.10  UNIT  DESIGN 

3.3.6.2.9.26.10.1  SET  DIAGONAL_AND_SUBTRACT  FROM  IDENTITY  UNIT  DESIGN  (CATALOG 
#P1073-0) 

This  function  provides  the  initialization  of  a  column  matrix  with  values  of  a 
vector  (to  be  subtracted  from  the  identity  matrix)  and  the  diagonal  to  be  set 
to  l's. 


3.3.6.2.9.26.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  requirement  R. 


3.3.6.2.9.26.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


V 


CAMP  Software  Detailed  Design  Document 


Page  999 


3.3.6.2.9.26.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

Mode 

1  Type 

|  Description  | 

|  Column 
j  Active  Column 

1  in 

1  in 

|  Vectors 
|  Indices 

|  The  vector  to  be  set  on  the  specified  column | 

|  Value  designating  which  column  is  to  be  set  j 

3.3.6.2.9.26.10.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  objects  maintained  by  this  part: 


|  Name 

Type 

Description  | 

|  Answer 

Column_Matrices 

The  resultant  column  matrix  | 

3.3.6.2.9.26.10.1.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.9.26.10.1.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 

function  Set_Diagonal_and_Subtract_from_Identity 
(  Column  :  Vectors; 

Active_Column  :  Indices  )  return  Co lumn_Mat rices  is 

Answer  :  Column  Matrices; 


begin 


Answer. Col_Vector  :«=  Column; 

Answer. Diagonal  :=  TRUE; 

Answer .Act ive_Column  :=  Active_Column; 

RargeLoop: 

For  Index  in  Indices  loop 

Answer .Col_Vector(  Index  )  :=  -  Answer. Col_Vector(  Index  ); 
end  loop  Range_Loop; 

Answer. Col  Vector(Active_Column)  :=  Answer .Col_Vector(Active  Column)  + 

1.0; 

return  Answer; 


end  Set  Diagonal  and  Subtract  from  Identity; 
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3.3.6.2.9.26.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.2.9.26.10.1.8  LIMITATIONS 


None. 


3.3.6.2.9.26.10.2  ABA_TRANSPOSE  UNIT  DESIGN  (CATALOG  #P1075-0) 

This  package  contains  a  function  which  does  an  ABA  transpose  multiply  on  a 
column  matrix  (m  x  m)  and  a  square  (m  x  m)  matrix,  yielding  a  square  matrix  (m 
x  m).  The  matrix  multiplies  (A*B)  and  (AB  *  transpose  A)  are  restricted. 


3.3.6.2.9.26.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R. 


3.3.6.2.9.26.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.9.26.10.2.3  INPUT/OUTPUT 


GENERIC  PARAMETERS  s 
Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


B_Matrix_ 
Elements 
C_Matrix_ 
Elements 
B  Matrices 


floating 
point  type 
floating 
point  type 
array 


Type  of  element  in  the  square  input  matrix 
Type  of  element  in  the  output  vector 
Data  type  of  the  square  input  matrix 


C  Matrices 


array 


Data  type  of  the  output  matrix 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 
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|  Name  | 

Type  | 

Description  | 

1  1 

function  | 

Function  defining  the  operation  Vector  Elements  *  | 

1  1 

1 

B_Matrix_Elements  :  =  B_Matrix_Elements  j 

FORMAL  PARAMETERS: 

The  following  table 

describes  the  formal  parameters  for  this  part: 

|  Name 

1  Type 

|  Description  | 

1  A 
| 

|  Column  Matrices  |  The  input  column  matrix  ( 

i  “  i  i 

1 

1  B 

1 

i 

|  B  Matrices 
1  ' 

1  i 

|  The  input  square  matrix 

1  1 

3. 3. 6. 2. 

9.26.10.2.4 

LOCAL  DATA 

None. 

3. 3. 6. 2. 

9.26.10.2.5 

PROCESS  CONTROL 

Not  applicable. 

3. 3. 6. 2. 

9.26.10.2.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  parts 

function  ABA_Transpose(  A  s  Column  Matrices; 

B  :  B_MatrIces  )  return  C_Matrices  is 

Answer  :  C_Matrices; 

Temp_Vector  s  Vectors  :=  A.Col_Vector; 

begin 

if  A. Diagonal  then 

Temp_Vector(  A.Active_Column  )  Temp_Vector(  A.Active_Column  )  -  1.0; 
M_Loop: 

For  Row  in  Indices  loop 
P_Loop: 

For  Col  in  Indices  loop 

Answer (  Row,  Col  )  :=  C_Matrix_Elements( 

Temp_Vector(  Row  )  *  Temp  Vector(  Col  )  * 

B(  A.Active_Column,  A.ActIve_Column  )  + 

Temp  Vector(  Col  )  *  B(  A.Active_Column,  Row  )  + 
Temp-Vector(  Row  )  *  B(  A.Active_Column,  Col  )  + 

B(  Row,  Col  )  ); 
end  loop  P_Loop; 
end  loop  M  Loop; 


else 
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Ml_Loop: 

For  Row  in  Indices  loop 
Pl_Loop: 

For  Col  in  Indices  loop 

Answer(  Row,  Col  )  :=  C_Matrix_Elements( 

A.Col_Vector(  Row  )  *  A.Col_Vector(  Col  )  * 
B(  A.Active_Column,  A.Active_Column  )  ); 
end  loop  Pl_Loop;_ 
end  loop  Ml_Loop; 
end  if; 

return  Answer; 
end  ABA  Transpose; 


3.3.6.2.9.26.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.2.9.26.10.2.8  LIMITATIONS 


None. 


3.3.6.2.9.26.10.3  ABASYMMTRANSPOSE  UNIT  DESIGN  (CATALOG  #P1076-0) 

This  package  contains  a  function  which  does  an  ABA  transpose  multiply  on  a 
column  matrix  (m  x  m)  and  a  symmetric  (m  x  m)  matrix,  yielding  a  symmetric 
matrix  (m  x  m).  The  matrix  multiplies  (A*B)  and  (AB  *  transpose  A)  are 
restricted. 


3.3.6.2.9.26.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R. 


3.3.6.2.9.26.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.9.26.10.3.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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j  Name  |  Type  |  Description 


B_Matrix_ 
Elements 
C_Matrix_ 
Elements 
B  Matrices 


floating 
point  type 
floating 
point  type 
array 


Type  of  element  in  the  square  input  matrix 
Type  of  element  in  the  output  vector 
Data  type  of  the  square  input  matrix 


C  Matrices 


array 


Data  type  of  the  output  matrix 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 


|  Name 

Type 

Description  | 

|  "*« 

1 

function 

Function  defining  the  operation  Vector  Elements  * 
B_Matrix_Elements  :■  B_Matrix_Elements 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  this  part: 


|  Name 

Type 

Description  | 

1  A 

Co  lumn_Mat rices 

The  input  column  matrix 

1 

1  B 

1 

B  Matrices 

The  input  symmetric  matrix 

3.3.6.2.9.26.10.3.4  LOCAL  DATA 


None. 


3.3.6.2.9.26.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.9.26.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  ABA_Symm_Transpose(  A  :  Column  Matrices; 

B  :  B  Matrices  )  return  C  Matrices  is 


Answer 


:  C  Matrices; 
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Last  :  Indices; 

Temp_Vector  :  Vectors  :  =  A.Col_Vector; 

begin 

Last  :=  Indices'LAST; 

if  A. Diagonal  then  —  Diagonal  value  is  1  — 

Temp_Vector(  A.Active_Column  )  :*  Temp_Vector(  A.Active_Column  )  -  1.0; 
HLoop: 

For  Row  in  Indices  loop 
P  Loop: 


-  Calculate  values  - 


For  Col  in  Row  ..  Indices'LAST  loop 

Answer(  Row,  Col  )  :«  C_Matrix_Elements( 
Temp_Vector(  Row  )  *~Temp  Victor(  Col  )  * 

B(  A. Active  Column,  A.ActIve_Column  )  t  + 

Temp_VectorT  Col  )  *  B(  A.Active_Column,  Row  )  + 
Temp_Vector(  Row  )  *  B(  A.Active_Column,  Col  )  + 
B(  Row,  Col  )  ); 


-  Assign  calculated  value  to  corresponding  - 

-  lower  triangular  position 


Answer (  Col,  Row  )  :«  Answer (  Row,  Col  ); 
end  loop  P_Loop; 

end  loop  M_Loop;~  ( 

else  —  diagonal  value  is  0  — 

Ml_Loop: 

For  Row  in  Indices  loop 
Pl_Loop: 


-  Calculate  values  - 


For  Col  in  Row  ..  Indices'LAST  loop 

Answer (  Row,  Col  )  :=  C_Matrix_Elements( 

A.Col_Vector(  Row  )  *  A.Col_Vector(  Col  )  * 
B(  A. Active  Column,  A. Active  Column  )  ); 


-  Assign  calculated  value  to  corresponding  - 

-  lower  triangular  position 


Answer (  Col,  Rov  )  :*  Answer (  Row,  Col  ); 
end  loop  Pl_Loop; 
end  loop  Ml_Loop; 

end  if;  —  Diagonal  value  is  0  — 

return  Answer; 

end  ABASymmTranspose; 


3.3.6.2.9.26.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 
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3.3.6.2.9.26.10.3.8  LIMITATIONS 


None. 


3.3.6.2.10  UNIT  DESIGN 

3.3.6.2.10.1  MATRI X_MATRI X_MULTI PLY_RE STRICTED  UNIT  DESIGN  (CATALOG  IP441-0) 

This  function  multiplies  an  m  x  n  matrix  by  an  n  x  p  matrix,  returning  an  m  x  p 
matrix. 

The  result  of  this  operation  is  defined  as  follovs: 
a(i,j)  b(i,k)  *  c(k,j) 

3.3.6.2.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R077. 

3.3.6.2.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  in  the  package 
specification  for  General_Vector_Matrix_Algebra. 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

1  Type 

1 

Description 

|  Left  Elements 

|  floating 

1 

Data  type  of  elements  in  left  input 

j  point  type 

matrix 

j  Right  Elements 

|  floating 

Data  type  of  elements  in  right  input 

!  point  type 

1 

matrix 

|  Output  Elements 

j  floating 

1 

Data  type  of  elements  in  output  matrix 

j  M  Indices 

j  point  type 
j  discrete 

1 

Used  to  dimension  first  dimension  of 

1  type 

1 

left  input  matrix  and  output  matrix 

|  N  Indices 

|  discrete 

1 

Used  to  dimension  second  dimension  of 

1  type 

1 

left  input  matrix  and  first  dimension 

j  P  Indices 

1 

|  discrete 

1 

1 

of  right  input  matrix 

Used  to  dimension  second  dimension  of 

i  type 

1 

right  input  matrix  and  output  matrix 

|  Left  Matrices 

|  array 

Data  type  of  left  input  matrix 

|  Right  Matrices 

|  array 

1 

Data  type  of  right  input  matrix 

|  Output  Matrices 

j  array 

1 

Data  type  of  output  matrix 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part.  To  tailor  this  function  to  handle  sparse  matrices,  the  formal 
subroutines  should  be  set  up  to  check  the  appropriate  element(s)  for  zero 
before  performing  the  indicated  operation. 


|  Name 

1  Type 

|  Description  | 

| 

|  function 

1 

|  Function  defining  the  operation 

j  Left  Elements  *  Right  Elements  :*  Output  Elements  j 

j  .v. 

1 

1 

|  function 

1 

1 

j  Function  defining  the  operation  j 

|  Output  Elements  +  Output  Elements  :  =  j 

Output_Elements  i 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Left 

|  Left  Matrices 

1  In 

|  m  x  n  matrix  j 

j  Right 

j  Right  Matrices 

1  In 

j  n  x  p  matrix  j 

3.3.6.2.10.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 
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|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  0utput_Matrices 

|  N/A 

|  Result  matrix  | 

3.3.6.2.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Vector_Matrix_Algebra) 

function  Matrix_Matrix_Multiply_Restricted  (Left  :  Lef t_Matrices; 

Right  T  Right_Matrices)  return  Output_Ma trices  is 

—  — declaration  section- 

Answer  :  Output_Matrices; 

( \ — begin  of  function  MatrixMatrixMultiply  Restricted 

begin 

Answer  :*  (others  «>  (others  »>  0.0)); 

M_Loop : 

for  M  in  M_Indices  loop 
P_Loop: 

for  P  in  P_Indices  loop 
N_Loop : 

for  N  in  N_Indices  loop 

Answer(M,  P)  Answer(M,  P)  + 

Lef t(M,  N)  *  Right(N,  P); 

end  loop  N_Loop; 
end  loop  P_Loop; 
end  loop  MLoopj 
return  Answer; 

end  Matrix_Matrix_Multiply_Res*ricted; 
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3.3.6.2.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


?.  3. 6. 2. 10. 1.8  LIMITATIONS 


None. 


3.3.6.2.10.2  MATRI X_VECTOR_MULTI PLY_RESTRI CTED  UNIT  DESIGN  (CATALOG  #P436-0) 

This  function  multiplies  an  m  x  n  matrix  by  an  n  x  1  vector  producing  an  m  x  1 
vector. 

The  result  of  this  operation  is  defined  as  follows: 
a(i)  :=  b(i,j)  *  c(j) 

3.3.6.2.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R069. 


3.3.6.2.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  table  describes  this  part's  generic  parameters  which  were 
previously  described  in  the  package  specification  of  General_Vector_Matrix_- 
Algebra: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 


j  Type  |  Description 


Matrix_Elements 
Inpu  t_Vec  tor_Elemen  t  s 
Output_Vector_Elements 
Indicesl 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
type 


Indices2 


discrete 

type 


Input_Matrices 

Input_Vectors 

OutputVectors 


array 

array 

array 


Type  of  elements  in  the  input  matrix 

Type  of  elements  in  the  input  vector 

Type  of  elements  in  the  output 
vector 

Used  to  dimension  first  dimension 
of  input  matrix  and  to  dimension 
the  output  vector 

Used  to  dimension  second  dimension 
of  input  matrix  and  to  dimension 
the  input  vector 
Data  type  of  input  matrix 
Data  type  of  input  vector 
Data  type  of  output  vector 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part.  This  function  can  be  made  to  handle  sparse  matrices  and/or  vectors  by 
tailoring  the  imported  functions  to  check  the  appropriate  element(s)  for  zero 
before  performing  the  indicated  operation. 


|  Name 

1  Type 

|  Description 

. i 

| 

1 

1 

|  function 

1 

1 

|  Function  defining  the  operation 
j  Matrix_Elements  *  Input_Vector_Elements  :■ 

!  Output  Vector  Elements- 

i 

i 

i 

j  "+" 

1 

|  function 

1 

j  Function  defining  the  operation 
!  Output_Vector_Elements  + 
Output_Vector_Elements  :» 

|  Output_Vector_Elements 

i 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description 

1 

|  Matrix 

|  Input  Matrices 

1  In 

|  Matrix  to  be  used  as 

the  multiplicand  | 

j  Vector 

|  Input  Vectors 

1  In 

j  Vector  to  be  used  as 

the  multiplier  | 

3.3.6.2.10.2.4  LOCAL  DATA 


Data  objects: 
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The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Answer 
! 

j  Output  Vectors 

1 

|  Result  of  performing  the  matrix-vector  | 
j  multiplication  | 

3.3.6.2.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 
function  Mat  rix_Vector_Multiply_Res  trie  ted 
(Matrix  :  Input_Matrices; 

Vector  :  Input_Vectors)  return  Output_Vectors  is 


—  — declaration  section- 


Answer  :  Output_Vectors; 

— begin  function  Matrix_Vector_Multiply_Restricted 
begin 

Answer  :=  (others  =>  0.0); 

M_Loop: 

for  M  in  Indicesl  loop 
N_Loop : 

for  N  in  Indices2  loop 

Answer(M)  :=  Answer(M)  + 

Matrix(M,  N)  *  Vector(N); 

end  loop  N_Loop; 
end  loop  M_Loop; 
return  Answer; 

end  Matrix_Vector_Multiply_Restricted; 
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3.3.6.2.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.2.10.2.8  LIMITATIONS 


None. 


3.3.6.2.10.3  VECTOR_VECTOR_TRANSPOSE_MULTIPLY_RESTRICTED  UNIT  DESIGN  (CATALOG 
#P444-0) 

This  function  multiplies  an  m  x  1  input  vector  by  the  transpose  of  a  n  x  1 
input  vector,  returning  the  resultant  m  x  n  matrix. 

The  following  defines  the  result  of  this  operation: 

a(i,j)  :=  b(i)  *  c(j) 

3.3.6.2.10.3.1  REQUIREMENTS  ALLOCATION 


N/A 


3.3.6.2.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.10.3.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  in  the  package 
specification  for  General_Vector_Matrix_Algebra: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 


Type  |  Description 


Lef t_Vector_Elements 

Right_Vector_Elements 

Matrix_Elements 

Indicesl 

Indices2 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
type 

discrete 

type 


Lef t_Vectors 

Right_Vectors 

Matrices 


array 

array 

array 


Data  type  of  elements  in  left  input 
vector 

Data  type  of  elements  in  right  input 
vector 

Data  type  of  elements  in  output 
matrix 

Used  to  dimension  left  input  vector 
and  first  dimension  of  output  matrix 

Used  to  dimension  right  input  vector 
and  second  dimension  of  output 
matrix 

Data  type  of  left  input  vector 

Data  type  of  right  input  vector 

Data  type  of  output  matrix 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

| 

1 

1 

|  function 

1 

1 

|  Operator  defining  the  multiplication  operation 
|  Left  Vector_Elements  *  Right_Vector_Elerf  nts  :* 
j  MatrlxElements 

FORMAL  PARAMETERS: 

The  following  table 

describes  this  part's  formal  parameters: 

|  Name 

1  Type 

|  Mode  |  Description  | 

|  Left  |  Lef t_Vec tors  |  In  |  m  x  1  vector 

j  Right  j  Right_Vectors  j  In  j  1  x  n  vector 


3.3.6.2.10.3.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  Matrices 

|  N/A 

|  Result  matrix  j 
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3.3.6.2.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 
function  Vector  Vector_Transpose_Multiply_Restricted 
(Lelt  :  Left_Vectors  ; 

Right  :  Right_Vectors)  return  Matrices  is 


—  — declaration  section 


Answer  :  Matrices; 

— begin  function  Vector_Vector_Transpose_Multiply_Restricted 

begin 

MLoop: 

for  M  in  Indicesl  loop 
N_Loop: 

for  N  in  Indices2  loop 

Answer(M,  N)  :«  Left(M)  *  Right(N); 
end  loop  N_Loop; 
end  loop  M_Loop; 
return  Answer; 

end  Vector_Vector_Transpose_Multiply_Res trie ted; 

3.3.6.2.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.2.10.3.8  LIMITATIONS 


None. 
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3.3.6.2.10.4  MATRIX_MATRIX  TRANSPOSE_MULTIPLY_RESTRICTED  UNIT  DESIGN  (CATALOG 
IP447-0) 

This  function  multiples  an  m  x  n  matrix  by  the  transpose  of  a  p  x  n  matrix, 
returning  the  resultant  m  x  p  matrix. 

The  results  of  this  operation  are  defined  as  follows: 

a  (i,j)  :=  b(i,k)  *  c(j,k) 

3.3.6.2.10.4.1  REQUIREMENTS  ALLOCATION 


N/A 


3.3.6.2.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.2.10.4.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  described  in  the  package 
specification  for  General_Vector_Matrix_Algebra: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

|  Description 

|  Left  Elements 

floating 

|  Type  of  elements  in  left  input  matrix 

point  type 

1 

j  Right  Elements 

floating 

|  Type  of  elements  in  right  input  matrix 

point  type 

j  Output  Elements 

floating 

|  Type  of  elements  in  output  matrix 

point  type 

1 

|  M  Indices 

discrete 

|  Used  to  dimension  first  dimension  of 

type 

!  left  input  matrix  and  output  matrix 

j  N  Indices 

discrete 

j  Used  to  dimension  second  dimension  of 

type 

j  left  and  right  input  matrix 

j  P  Indices 

discrete 

j  Used  to  dimension  first  dimension  of  right 

type 

j  input  matrix  and  second  dimension  of 

j  output  matrix 

j  Left  Matrices 

array 

j  Data  type  of  left  input  matrix 

j  Right  Matrices 

array 

j  Data  type  of  right  input  matrix 

j  0utput_Mat rices 

array 

j  Data  type  of  output  matrix 
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Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

|  »*" 

1 

|  function 

1 

Operator  used  to  define  the  operation: 

Lef t_Elements  *  Right_Elements  :«  Output_Elements  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Left 

|  Left  Matrices 

1  In 

|  Matrix  to  be  used  as  the  multiplicand 

I  Right 

j  Right  Matrices 

1  In 

j  Matrix  whose  transpose  is  to  be  used  as  j 

1 

1 

1 

j  the  multiplier 

3.3.6.2.10.4.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  Output_Matrices 

|  N/A 

|  Result  matrix  being  calculated  | 

3.3.6.2.10.4.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.2.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix_Algebra) 
function  Matrix  Matrix_Transposi_Multiply_Restricted 
(LeTt  :  Lef t_Matrices; 

Right  :  Right_Matrices)  return  Output_Matrices  is 


—  — declaration  section 


Answer  :  Output_Matrices; 


CAMP  Software  Detailed  Design  Document 


Page  1016 


— begin  function  Matrix_Matrix_Transpose_Multiply_Restricted 
begin 

Answer  :=  (others  =>  (others  =>  0.0))} 

MLoop  s 

for  M  in  M_Indices  loop 
P_Loop : 

for  P  in  P_Indices  loop 
N_Loop : 

for  N  in  N_Indices  loop 

Ar.swer(M,  P)  Answer (M,  P)  + 

left(M,  N)  *  Right(P,  N); 

end  loop  N_Loop; 
end  loop  P_Loop; 
end  loop  Jl_Loop; 
return  Answer; 

end  Matrix_Matrix_Transpose_Multiply_Restricted; 

3. 3. 6. 2. 10.  A. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3.6.2. 10.  A. 8  LIMITATIONS 
None. 

3.3.6.2.10.5  D0T_PR0DUCT_0PERATI0NS_RESTRICTED  UNIT  DESIGN  (CATALOG  #PA50-0) 
This  function  performs  a  dot  product  operation  on  two  m-element  vectors. 

3.3.6.2.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R063. 

3.3.6.2.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.2.10.5.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  in  the  package 
specification  for  General_Vector_Matrix_Algebra. 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

Description 

|  Left  Elements 

|  floating 
|  point  type 

Type  of  elements  in  left  input  vector 

j  Right  Elements 

j  floating 
j  point  type 

Type  of  elements  in  right  input  vector 

j  Result  Elements 

j  floating 
j  point  type 

Data  type  of  result  of  dot  product 

j  Indices 

j  discrete 

1  type 

Used  to  dimension  input  vectors 

j  Left  Vectors 

j  array 

Data  type  of  left  input  vector 

j  Right  Vectors 

|  array 

Data  type  of  right  input  vector 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

|  »*» 

1 

|  function 

1 

Multiplication  operator  defining  the  operation:  | 

Lef t_Elements  *  Right_Elements  :-  Result_Elements  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


1  Name 

1  Type 

|  Mode 

|  Description 

1 

|  Left 

|  Left  Vectors 

1  In 

|  First  vector 

in  a  dot  product  operation  | 

j  Right 

j  Right_Vectors 

In 

j  Second  vector 

in  a  dot  product  operation  | 

3.3.6.2.10.5.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 
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|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  Result_Elements 

|  N/A 

|  Result  of  dot  product  operation  | 

3.3.6.2.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.2.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  ( General_Vec t or_Ma t r i x_Algebra ) 
function  Dot_Product_Operations_Res trie  ted 
(Left  :  Lef t_Vectors; 

Right  :  Right_Vectors)  return  Result_Elements  is 
—  — declaration  section- 
Answer  :  Result_Elements; 

— begin  function  Dot_Product_Operations_Restricted 
begin 

Answer  :=  0.0; 

Process: 

for  Index  in  Indices  loop 

Answer  :=  Answer  +  Left(Index)  *  Right(Index) ; 
end  loop  Process; 
return  Answer; 

end  Dot_Product  Operations_Restricted; 

3.3.6.2.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.2.10.5.8  LIMITATIONS 


None. 


CAMP  Softvare  Detailed  Design  Document 


Page  1019 


3.3.6.2.10.6  DIAGONAL_FULL_MATRIX_ADD_RESTRICTED  UNIT  DESIGN  (CATALOG  IP453-0) 

This  function  adds  an  m-element  diagonal  matrix  to  an  m  x  m  matrix,  returning 
the  resultant  m  x  m  matrix. 


3.3.6.2.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.3.6.2.10.6.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.2.10.6.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  table  describes  this  part's  generic  parameters  previously  defined 
in  the  pack^«  specification  for  General_Vector_Matrix_Algebra: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


Elements  |  floating 

j  point  type 

Diagonal_Range  j  integer 

I  type 

Indices  |  discrete 

j  type 

Diagonal_Matrices  |  array 

Full_Matrices  j  array 


Type  of  elements  in  input  and 
output  arrays 

Used  to  dimension  Diagonal_Matrices 

Used  to  dimension  input  and  output 
matrices 

Data  type  of  diagonal  input  matrix 

Data  type  of  full  input  and  output 
matrices 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

|  D  Matrix 

Diagonal  Matrices 

In 

|  Input  diagonal  matrix  | 

j  F  Matrix 

Full  Input  Matrices 

In 

j  Input  full  matrix  to  be  added  to  j 

1 

the  diagonal  matrix  | 
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3.3.6.2.10.6.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  Full  Output  Matrices 

|  N/A 

|  Resultant  matrix  | 

|  Diag  Index 

|  Diagonal  Range 

j  N/A 

j  Index  into  diagonal  \ 

1 

1 

1 

j  matrix  j 

|  Index 

|  Indices 

j  N/A 

j  Index  into  full  matrix  j 

3.3.6.2.10.6.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix  Algebra) 
function  Diagonal_Full_Matrix_A<Id_Restricted 
(DMatrix  :  Diagonal_Ma trices; 

F  Matrix  :  Full  Matrices)  return  Full  Matrices  is 


—  — declaration  section- 


Answer  :  Full_Mat rices; 

Diag_Index  :  Diagonal_Range; 

Index  :  Indices; 


— begin  function  Diagonal_Full_Matrix_Add_Restricted 


begin 

—  — assign  all  values  to  answer  and  then  add  in  diagonal  elements 
Answer  :=  F_Matrix; 

—  — now  add  in  diagonal  elements 

Diaglndex  :=  Diagonal_Range' FIRST; 

Index  :=  Indices'FIRST; 

Add  Loop: 
loop 

Answer(Index,  Index)  :=  Answer(Index,  Index)  +  D_Matrix(Diag_Index) ; 
exit  when  Index  =  Indices' LAST; 
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Diag_Index  :■  Diagonal_Range'SUCC(Diag  Index); 
Index  :«  Indices 'SUCC(Index); 

end  loop  Add_Loop; 

return  Answer; 

end  Diagonal_Full_Matrix_Add_Restricted; 


3. 3. 6. l. 10. 6. 7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.2.10.6.8  LIMITATIONS 


None. 


3.3.6.2.10.7  VECTORMATRIXMULTIPLYRESTRICTED  UNIT  DESIGN  (CATALOG  #P438-0) 

This  package  contains  a  function  which  multiplies  a  1  x  m  vector  by  an  m  x  n 
matrix  producing  a  1  x  n  vector. 

The  calculations  performed  are  as  follows: 

c(j)  a(i)  *  b(i,j) 

The  function  can  be  made  to  handle  sparse  matrices  and/or  vectors  by  tailoring 

the  imported  "+"  and  functions  (see  sections  describing  generic  formal 

subprograms  and  calling  sequence). 


3.3.6.2.10.7.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.2.10.7.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.2.10.7.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  when  this  part  was 
specified  in  the  package  specification  of  General_Vector_Matrix_Algebra. 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


2  ;  > 
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|  Name 


Type  |  Description 


MatrixElements 
Input_Vector_Elements 
Ou  t  pu  t_Vec  t  orElemen  t  s 
Indicesl 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
type 


Indices2 


discrete 

type 


Input_Matrices 

InputVectors 

OutputVectors 


array 

array 

array 


Type  of  elements  in  the  input  matrix 

Type  of  elements  in  the  input  vector 

Type  of  elements  in  the  output 
vector 

Used  to  dimension  first  dimension 
of  input  matrix  and  to  dimension 
the  output  vector 

Used  to  dimension  second  dimension 
of  input  matrix  and  to  dimension 
the  input  vector 
Data  type  of  input  matrix 
Data  type  of  input  vector 
Data  type  of  output  vector 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part.  This  function  can  be  made  to  handle  sparse  matrices  and/or  vectors  by 
tailoring  the  imported  functions  to  check  the  appropriate  element(s)  for  zero 
before  performing  the  indicated  operation. 


|  Name  |  Type  |  Description 


function  |  Function  defining  the  operation 

j  Input_Vector_Elements  *  Matrix_Elements 
i  Output_Vector_Elements 
function  j  Function  defining  the  operation 
|  Output_Vector_Elements  + 
j  Output_Vector_Elements  :■ 

!  Output  Vector  Elements 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description 

1 

|  Vector 

Input  Vectors 

In 

|  M-element  vector 

1 

j  Matrix 

Input_Matrices 

In 

|  M  x  N  input  matrix 

1 

3.3.6.2.10.7.4  LOCAL  DATA 


Data  objects: 
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The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer 

|  0utout_Vectors 

|  N/A 

|  Vector  being  calculated  and  returned  | 

3.3.6.2.10.7.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.2.10.7.6  PROCESSING 

Th«  following  describes  the  processing  performed  by  this  part: 

separate  (General_Vector_Matrix  Algebra) 
function  Vec tor_Matrix_Multiply_Res trie ted 
(Vector  :  Input_Vectors j 

Mai rix  :  Input_Matrices)  return  Output_Vectors  is 


- declaration  section 


Answer  :  OutputVectors  :«  (others  «>  0.0); 

— begin  function  Vec  tor_Matrix_Multiply_Restricted 

begin 

N_Loop: 

for  N  in  Indices2  loop 
M_Loop : 

for  M  in  Indicesl  loop 

Answer(N)  :*  Answer(N)  +  Vector(M)  *  Matrix(M,N); 
end  loop  M_Loop; 
end  loop  N_Loop; 
return  Answer; 

end  Vec tor_Matrix_Multiply_Res trie ted; 

3  3.6.2.10.7.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 
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3.3.6.2.10.7.8  LIMITATIONS 
None. 
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package  body  General_Vector_Matrix_Algebra  is 

package  body  Vector_Operatioi.s_Uncons trained  is  separate; 
package  body  Vector_Operations_Constrained  is  separate; 
package  body  Matrix_Operations_Unconstrained  is  separate; 
package  body  Matrix_Operations_Constrained  is  separate; 

package  body  Dynamically_Sparse_Matrix_Operations_Unconstrained  is  separate; 

package  body  Dynamically_Sparse_Matrix_Operations_Constrained  is  separate; 

package  body  Symmetric_Half_Storage_Matrix_Operations  is  separate; 

package  body  Symmetric_Full_Storage_Matrix_Operations_Unconstrained  is  separate; 

package  body  Symmetric_Full_Storage_Matrix_Operations_Constrained  is  separate; 

package  body  Diagonal_Matrix_Operations  is  separate; 

package  body  Vector_Scalar_Operations_Unconstrained  is  separate; 

package  body  Vector_Scalar_Operations_Cons trained  is  separate; 

package  body  Matrix_Scalar_Operations_Unconstrained  is  separate; 

package  body  Matrix_Scalar_Operations_Cons trained  is  separate; 

package  body  Diagonal_Matrix_Scalar_Operations  is  separate; 

package  body  Mat rix_Vector_Multiply_Unres trie tec’  is  separate; 

function  Matrix_Vector_Multiply_Restricted 
(Matrix  :  Input_Matrices; 

Vector  :  Input_Vectors)  return  Output_Vectors  is  separate; 

package  body  Vector_Vector_Transpose_Multiply_Unrestricted  is  separate; 

function  Vector  Vector_Transpose_Multiply_Restricted 
(Lelt  :  Left_Vectors  ; 

Right  s  Right_Vectors)  return  Matrices  is  separate: 

package  body  Matrix_Matrix_Multiply_Unrestricted  is  separate; 

function  Matrix  Matrix_Multiply_Restricted 
(LeTt  :  Lef t_Matrices; 

Right  :  Right_Matrices)  return  Output_Matrices  is  separate; 

package  body  Matrix_Matrix_Transpose_Multiply_Unrestricted  is  separate; 

function  Matrix  Matrix_Transpose_Multiply_Restricted 
(Lelt  :  Lef t_Matrices; 

Right  :  RighI_Matrices)  return  Output_Matrices  is  separate; 
package  body  Dot_Product_Operations  Unrestricted  is  separate; 
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function  Dot  Product_Operations_Restricted 
^Left  :  Lef t_Vectors; 

Right  :  Right_Vectors) 
return  Result_Elements  is  separate; 

package  body  Diagonal_Full_Matrix_Add_Unrestricted  is  separate; 

function  Diagonal_Full_Matrix_Add_Res trie  ted 
(D_Matrix  :  Diagonal_Matrices; 

F_Matrix  :  Full_Matrices)  return  Full_Matrices  is  separate; 

package  body  Vector_Matrix_Multiply_Unrestricted  is  separate; 

function  Vector_Matrix_Multiply_Restricted 
(Vector  :  Input_Vectors; 

Matrix  :  Input_Matrices)  return  Output_Vectors  is  separate; 
package  body  Aba_Trans_Dynam_Sparse_Matrix_Sq_Matrix  is  separate; 
package  body  Aba_Trans_Vector_Sq_Matrix  is  separate; 
package  body  Aba_Trans_Vector_Scalar  is  separate; 
package  body  Column_Matrix_Operations  is  separate; 
end  General  Vector  Matrix  Algebra; 
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separate  (General_Vector_Matrix_Algebra) 
package  body  Vector_Operations_Unconstrained  is 


pragma  PAGE; 

function  "+"  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors  is 


—  declaration  section- 


Answer  s  Vectors(Lef  t' range) ; 
L_Index  :  Indices; 

R  Index  :  Indices; 


—  —  begin  function  "  +  ” 


begin 

—  make  sure  lengths  of  input  vectors  are  the  same 
if  Left 'LENGTH  -  Right 'LENGTH  then 

LIndex  :«  Left 'FIRST; 

RIndex  :«  Right 'FIRST; 

Process! 

loop 

Answer (L_Index)  !«  Lef t(L_Index)  +  Right (R_Index) ; 

exit  Process  vhen  L_Index  *  Left 'LAST; 

L_Index  :=  Indices' SUCC(L_Index) ; 

R_Index  :=  Indices ' SUCC(R_Index) ; 

end  loop  Process; 


else 

—  dimensions  of  vectors  are  incompatible 

raise  Dimens ion_Error; 

end  if; 

return  Answer; 
end  "+"; 
pragma  PAGE; 

function  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors  is 


—  declaration  section- 
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Answer  s  Vectors(Left'range) ; 
L_Index  :  Indices; 

R  Index  :  Indices; 


—  —  begin  function  " 

begin 

—  make  sure  lengths  of  the  input  veclors  are  the  same 
if  Left 'LENGTH  «=  Right 'LENGTH  then 

LIndex  Left 'FIRST; 

R_Index  :«  Right 'FIRST; 

Process: 

loop 

Answer (L_Index)  Lef t(L_Index)  -  Right (R_Index) ; 

exit  Process  when  LIndex  -  Left 'LAST; 

LIndex  Indices' SUCC(LIndex) ; 

RIndex  :«  Indices' SUCC(RIndex) ; 

.end  loop  Process; 

else 

—  dimensions  of  veclors  are  incompatible 
raise  Dimens ion_Error; 

end  if; 

return  Answer; 
end 

pragma  PAGE; 

function  Vector_Length  (Input  :  Vectors)  return  Vector_Elements  is 

— declaration  section- 


Temp  :  Vector_Elements_Squared; 


—  — begin  function  Vector  Length 


begin 


Temp  : =  0.0; 


44 
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Process : 

for  INDEX  in  Input 'range  loop 
Temp  :=  Temp  + 

Input(INDEX)  *  Input(INDEX) ; 
end  loop  Process; 

return  Sqrt(Temp); 

end  Vector_Length; 

pragma  PAGE; 

function  Dot_Product  (Left  :  Vectors; 

Right  :  Vectors)  return  Vector_Elements_Squared  is 


—  declaration  section- 


Answer  :  Vector_Elements_Squared; 
L_Index  :  Indices; 

R  Index  :  Indices; 


—  — begin  function  Dot  Product 


begin 

—  make  sure  lengths  of  the  input  vectors  are  the  same 
if  Left 'LENGTH  -  Right 'LENGTH  then 

Answer  0.0; 

L_Index  :=  Left 'FIRST; 

RIndex  Right 'FIRST; 

Process: 

loop 

Answer  :■  Answer  +  Lef t(L_Index)  *  Right (R_Index) ; 

exit  Process  when  L_Index  =  Left 'LAST; 

L_Index  :=  Indices' SUCC(L_Index); 

R_Index  Indices' SUCC(R~Index) ; 

end  loop  Process; 

else 

—  dimensions  of  vectors  are  incompatible 
raise  Dimension_Error ; 

end  if; 

return  Answer; 
end  Dot  Product; 
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end  Vec tor_0perat ions_Uncons  t rained ; 
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■V'u 

separate  (General  Vector_Matrix_Algebra) 
package  body  MatrTx_Operations_Dnconstrained  is 

pragma  PAGE; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section- 


Ansver  :  Matrices(Lef t'range(l),  Lef t' range(2>) ; 
L_Col  :  Col_Indices; 

L_Row  s  Row_Indices; 

R_Col  :  Col_Indices; 

R  Row  :  Row  Indices; 


—  —  begin  function  "  +  '' 


begin 

— make  sure  the  dimensions  of  the  matrices  are  compatible 
if  Lef t'LENGTH(l)  -  Right 'LENGTH(l)  and 
Left'LENGTH(2)  -  Right ' LENGTH(2)  then 

LRow  s-  Lef t'FIRST(l) ; 

RRow  Right 'FIRST(l); 

Row  Loop: 
loop 

LCol  Left'FIRST(2); 

RCol  :«  Right 'FIR5T(2); 

Col  Loop: 
loop 

Ansver(L_Rov,  L_Col)  :■  Left(L_Row,  L  Col)  + 

Right(R_Row,  R_Col); 

exit  Col_Loop  when  L  Col  -  Left'LAST(2); 
LCol  Col_Indices~SUCC(L_Col) ? 

RCol  :«  Col_Indices ' SUCC(R_Col) ; 

end  loop  Col_Loop; 

exit  Row_Loop  when  L_Rov  =  Left'LAST(l); 

L_Row  Row_Indices'SUCC(L_Row); 

R~Row  :=  Row_Indices'SUCC(R_Row); 

end  loop  Rov_Loop; 

else 

—  input  matrices  have  incompatible  dimensions 

raise  Dimension  Error; 
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end  if; 

return  Answer; 
end  "+"; 
pragma  PAGE; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section- 


Answer 

:  Matrices(Lef t' range(l) ,  Lef t ' range(2) ) 

LCol 

:  Col  Indices; 

L  Row 

:  Row  Indices; 

RCol 

:  Col  Indices; 

R  Row 

:  Row  Indices; 

—  —  begin  function  " 


begin 

—  make  sure  matrix  dimensions  are  compatible 
if  Lef t'LENGTH(l)  -  Right 'LENGTH(l)  and 
Left'LENGTH(2)  -  Right'LENGTH(2)  then 

LRow  :«  Left'FIRST(l); 

RRow  Right 'FIRST(l); 

Row  Loop: 
loop 

L_Col  :=  Left'FIRST(2); 

RCol  :=  Right 'FIRST(2); 

Col  Loop: 

loop 

Answer(L_Row,  L_Col)  :«  Lef t(L_Row,  L_Col)  - 

Right(I_Row,  RCol); 

exit  Col_Loop  when  L  Col  -  Left'LAST(2); 
LCol  :=  Col_IndicesrSUCC(L_Col); 

R_Col  :=  Col_Indices'SUCC(R_Col); 

end  loop  Col_Loop; 

exit  Row_Loop  when  L_Row  =  Left'LAST(l); 

L_Row  :  =  Row_I ndices'SUCC( L_Row ) ; 

R_Row  :=  Row_Indices' SUCC(R_Row) ; 

end  loop  Rov_Loop; 


else 
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—  input  matrices  have  incompatible  dimensions 
raise  Dimension_Error; 

end  if; 

return  Answer; 

end 

pragma  PAGE; 

function  "+"  (Matrix  :  Matrices; 

Addend  :  Elements)  return  Matrices  is 


—  declaration  seetion- 


Answer  :  Matrices(Matrix' range(l) ,  Matrix' range(2) ) ; 

0 


—  —  begin  function  "  +  * 


begin 

Row  Loop: 

lor  Row  in  Matrix' range(l)  loop 
Col  Loop: 

lor  COL  in  Matrix' range(2)  loop 

Answer  (Row,  COL)  :«  Hatrix(Row,  COL)  +  Addend 
end  loop  Col_Loop; 
end  loop  RowLoop;- 

return  Answer; 

end  "+"; 

pragma  PAGE; 

function  (Matrix  :  Matrices; 

Subtrahend  :  Elements)  return  Matrices  is 


—  declaration  section- 


Answer  :  Matrices(Matrix' range(l) ,  Matrix' range(2) ) ; 


—  — begin  function 


begin 

Row  Loop: 

lor  Row  in  Matrix' range(l)  loop 
Col  Loop: 

lor  COL  in  Matrix' range(2)  loop 
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Ansver(Rov,  COL)  :■  Matrix(Row,  COL)  -  Subtrahend; 
end  loop  Col_Loop; 
end  loop  Row_Loop; 

return  Answer; 

end 

pragma  PAGE; 

procedure  Set_To_Identity_Matrix  (Matrix  s  out  Matrices)  is 


—  declaration  section 


Col_Marker  :  Col_Indices; 
Row  :  Row  Indices; 


—  —  begin  function  Set  To  Identity  Matrix 


begin 

—  make  sure  input  matrix  is  a  square  matrix 

if  Matrix' LENGTH(l)  -  Matrix 'LENGTH( 2)  then 

Matrix  :*  (others  *>  (others  «>  0.0)); 

Row  Matrix'FIRST(l) ; 

ColMarker  Matrix' FIRST(2) ; 

Row  Loop: 
loop 

—  set  diagonal  element  equal  to  I 
Matrix(Row,  Col_Marker)  1.0; 

exit  Row_Loop  when  Row  -  Matrix'LAST(l) ; 

Row  :■  Row_Indices'SUCC(Row); 

Col_Marker  :=  Col_Indices' SUCC(Col_Marker) ; 

end  loop  Row_Loop; 


else 

—  do  not  have  a  square  matrix 
raise  Dimension_Error ; 

end  if; 

end  Set_To_Identity_Matrix; 
pragma  PAGE; 

procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices)  is 


begin 
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Matrix  (others  «>  (others  ■>  0.0)); 

end  Set_To_Zero_Matrix; 
pragma  PAGE; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer 

M 

NLeft 

NRight 

P 


Matrices(Lef t'range(l),  Right 'range(2)); 
Row_Indices; 

Col_Indices; 

Rowlndices; 

Col  Indices; 


—  — begin  function 


begin 

—  make  sure  dimensions  are  compatible 

if  Lef t'LENGTH(2)  «  Right 'LENGTH(l)  then 

M  j-  Left'FIRST(l) ; 

M_Loop : 

loop 

P  :«  Right 'FIRST(2); 

P_Loop: 

loop 

Answer(M,P)  0.0; 

N_Lef t  :«  Lef t'FIRST(2); 

N_Righ t  :«  Right 'FIRST(l); 

N_Loop : 
loop 

Answer(M,P)  :«  Answer(M,P)  + 

Lef t(M,N_Lef t)  *  Right(N_Right,P); 

exit  N_Loop  when  N  Left  »  Left'LAST(2); 

N_Left  :*  Col_IndIces' SUCC(N_Lef t) ; 

N_Right  :=  Row_Indices'SUCC(N_Right) ; 

end  loop  N_Loop; 

exit  P_Loop  when  P  =  Right 'LAST(2); 

P  :=  Col_Indices' SUCC(P) ; 

end  loop  P_Loop; 

exit  M_Loop  when  M  =  Lef t ' LAST(l) ; 
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M  :=  Row_Indices' SUCC(M) ; 
end  loop  M_Loop; 

else 

—  dimensions  are  incompatible 

raise  Dimension_Error; 

end  if; 

return  Answer; 

end 

end  Ma  t  r  ix_0pera  t  i  ons_Uncons  t  re  ined ; 
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sep?  ate  (General_Vector_Matrix_Algebra) 

package  body  Dynamically_Sparse_Matrix_Operations_Unconstrained  is 
pragma  PAGE; 

procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices)  is 


—  declaration  section 


Col_Marker  :  Col_Indices; 
Row  :  Row  Indices; 


—  —  begin  procedure  Set  to  Identity  Matrix 


begin 

—  make  sure  input  matrix  is  a  square  matrix 

if  Matrix' LENGT'Kl)  -  Matrix' LENGTH(2)  then 

Matrix  :■  (others  ■>  (others  ->  0.0)); 

Row  Matrix' FIRST(l) ; 

ColMarker  Matrix' FIRST(2) ; 

Row  Loop: 
loop 

—  set  diagonal  element  equal  to  1.0 
Matrix(Rov,  Col_Marker)  1.0; 

exit  Rov_Loop  when  Row  -  Matrix' LAST(l); 
Row  :■  Rov_Indices'SUCC(Row); 

Col_Marker  :=  Col_Indices' SUCC(Col_Marker) ; 

end  loop  Row_Loop; 


else 

raise  Dimens ion_Error; 
end  if; 

end  Set_To_Identity_Matrix; 
pragma  PAGE; 

procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices)  is 
begin 

Matrix  :=  (others  =>  (others  =>  0.0)); 
end  Set_To_Zero_Matrix; 
pragma  PAGE; 

function  Add_To_Identity  (Input  :  Matrices)  return  Matrices  is 
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—  declaration  section 


Answer  :  Matrices(Input' range(l)  , Input '  range(2)) ; 
ColMarker  :  Col_Indices; 

Row  :  Row  Indices; 


—  —  begin  procedure  Add  to  Identity 


begin 

—  make  sure  input  is  a  square  matrix 

if  Input 'LENGTH(l)  -  Input 'LENGTH(2)  then 

Answer  :  =  Input; 

— add  "identity"  values  to  diagonal  elements 
Row  :=  Input 'FIRST(l); 

ColMarker  :«  Input' FIRST(2); 

Row  Loop: 
loop 

if  Answer(Row,  Col  Marker)  /»  0.0  then 

Answer(Row,  ColMarker)  Answer(Rowf  ColMarker)  +  1.0; 
else 

Answer(Row,  Col_Marker)  :■  1.0; 
end  if; 

exit  Row_Loop  when  Row  «  Input 'LAST(l); 

Row  :*=  Row_Indices' SUCC(Row) ; 

Col_Marker  :»=  Col_Indices'  SUCC(Col_Marker) ; 

end  loop  Row_Loop; 


else 

raise  Dimension  Error; 
end  if; 

return  Answer; 
end  Add_To_Identity; 
pragma  PAGE; 

function  Subtract_From_Identity  (Input  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices(Input'  range(l) ,  Input '  range(2)) ; 
Col  Marker  :  Col  Indices; 
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Row  :  Row  Indices; 


—  —  begin  procedure  Subtract  From  Identity 


begin 

—  make  sure  input  is  a  square  matrix 

if  Input 'LENGTH(l)  *  Input'LENGTH(2)  then 

Row  :  =  Input 'FIRST(l); 

ColMarker  :-=  Input 'FIRST(2); 

Row  Loop: 
loop 

Col  Loop: 

lor  COL  in  Input' range(2)  loop 
if  Input (Row, COL)  /«  0.0  then 

Answer(Row,C0L)  :*  -  Input (Row, COL) ; 
else 

Answer (Row, COL)  :-  0.0; 
end  if; 

end  loop  Col_Loop; 

if  Answer^Row,  Col_Marker)  /■  0.0  then 

Answer(Row,  ColMarker)  :«  Answer(Row,  ColMarker)  +  1.0; 
else 

Answer (Row,  ColMarker)  :«  1.0; 
end  if; 

exit  Row_Loop  when  Row  >  Input 'LAST(l); 

Row  tm  Row_Indices' SUCC(Row); 

Col_Marker  :«  Col_Indices'SUCC(Col_Marker); 

end  loop  Row_Loop; 


else 

raise  Dimens ion_Error; 
end  if; 

return  Answer; 
end  Subtract_From_Identity; 
pragma  PAGE; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices(Lef t ' range(l) ,  Left'range(2)); 
L  Col  :  Col  Indices; 
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L_Rov  :  Row_Indices; 
RCol  :  Col_Indices; 
R  Row  :  Row  Indices; 


—  —  begin  function  "  +  " 


begin 

—  make  sure  have  compatible  dimensions 
if  Lef t'LENGTH(l)  =  Right' LENGTH(l)  and  then 
Lef t'LENGTH(2)  -  Right'LENGTH(2)  then 

LRow  Lef t'FIRST(l) ; 

RRow  Right 'FIRST(l); 

Row  Loop: 
loop 

L_Col  :«=  Lef t'FIRST(2) ; 

R  Col  :«=  Right 'FIRST(2); 

Col  Loop: 

loop 

if  Left(L  Row,  L_Col)  -  0.0  then 
if  RigEt(R  Row,  R  Col)  -  0.0  then 
Answer (t_Row,  I_Col)  :•  0.0; 
else 

Answer(L_Row,  L  Col)  Right(R_Row,  R  Col); 
end  if; 

elsif  Right(R_Row,  R_Col)  ■  0.0  then 

Answer(L_Row,  L_Col)  Left(L_Row,  L_Col); 
else 

Answer(L_Row,  L_Col)  : ■  Left(L_Row,  L_Col)  + 

Right(R_Row,  R_Col); 

end  if; 

exit  Col_Loop  when  L_Col  -  Left'LAST(2); 

L_Col  Col_Indices ' SUCC(L_Col) ; 

R_Col  Col_Indices ' SUCC(R_Col) ; 

end  loop  Col_Loop; 

exit  Row_Loop  when  L_Row  ■  Left'LAST(l); 

L_Row  Row_Indices7SUCC(L_Row) ; 

R_Row  :=  Row~Indices'SUCC(R_Row) ; 

end  loop  Row_Loop; 


else 

raise  Dimension_Error ; 
end  if; 

return  Answer; 
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end  "+"; 
pragma  PAGE; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices(Left'range(l) ,  Left'range(2)); 
L_Col  :  Col_Indices; 

L_Row  :  Row_Indices; 

R_Col  :  Col~Indices; 

R  Row  :  Row  Indices; 


—  —  begin  function  " 


begin 

—  make  sure  have  compatible  dimensions 
if  Left'LENGTH(l)  .  Right 'LENGTH(l)  and 
Lef t ' LENGTH(2)  -  Right ' LENGTH(2)  then 

• 

LRow  :«  Left'FIRST(l); 

RRow  :«  Right 'FIRST(l); 

Row  Loop: 
loop 

LCol  :-  Lef t'FIRST(2) ; 

RCol  :«  Right 'FIRST(2); 

Col  Loop: 
loop 

if  Left(L  Row,  L_Col)  -  0.0  then 
if  RigKt(R_Row,  R_Col)  ■  0.0  then 
Answer(L_Row,  L_Col)  :■  0.0; 
e)  -e 

Answer(L_Row,  L_Col)  :■  -  Right(R_Row,  R_Col); 
end  if; 

elsif  Right(R_Row,  R_Col)  -  0.0  then 

Answer(L_Row,  L_Col)  :-  Left(L_Row,  L_Col); 
else 

Answer(L_Row,  L_Col)  :=  Left(L_Row,  L_Col)  - 

Right(R_Row,  R_Col); 

end  if; 

exit  Col_Loop  vhen  L_Col  =  Lef t ' LAST(2) ; 

L_Col  :=  Col  Indices7SUCC(L_Col) ; 

R_Col  :=  Col~Indices ' SUCC(R_Col) ; 

end  loop  Col_Loop; 

exit  Rov_Loop  when  L  Row  =  Lef t'LAST(l) ; 

L_Row  :=  Row_Indices~SUCC(L_Row) ; 


i  v  J 


CAMP  Software  Detailed  Design  Document 


Page  1042 


R_Rov  : «=  Row_Indices'SUCC(R_Row); 
end  loop  Row_Loop; 

else 

raise  Dimension_Error; 
end  if; 

return  Answer; 
end 

end  Dynamically_Sparse_Matrix_Operations_Uncons trained; 
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separate  (General_Vector_Matrix_Algebra) 

package  body  Symmetric_Half_Storage_Matrix_Operations  is 


—  — local  declarations 


type  Col_Index_Arrays  is  array(Col_Indices)  of  NATURAL; 
type  Rov_Index_Arrays  is  array(Row_Indices)  of  NATURAL; 

Col_0ffset  :  Col_Index_Arrays ; 

Rov_Marker  s  Row_Index_Arrays ; 

—  — this  object  is  initially  only  zeroed  out;  the  1.0  values  will  be  assigned 

—  —  to  the  diagonal  elements  during  package  initialization 
Local_Identity_Matrix  :  Matrices  :«  (others  ->  0.0); 

Local_Zero_Matrix  :  constant  Matrices  :«  (others  ->  0.0); 

pragma  PAGE; 

function  Svap_Col  (Row  :  Rov_Indices)  return  Col_Indices  is 
begin 

return  Collnd i ces ' VAL( Rov  lnd ices' P0S ( Row )  - 

Row  Indices'  P0S(Rov_Ind ices'  FIRST)  + 
Col“lnd i ces ' P0S ( Collnd i ces ' FIRST ) ) ; 

end  Swap_Col; 
pragma  PAGE; 

function  SwapRow  (COL  :  Collndices)  return  Row  lndices  is 
begin 

return  Row_Indices'VAL(Col  Indices' P0S( COL)  - 

Col_Ind i ces ' P0S ( Col_Ind i ces ' FIRST )  + 
Row_Ind ices'  P0S ( Row_Ind ices'  FIRST ) ) ; 

end  Swap_Row; 
pragma  PAGE; 

procedure  Initialize  (Row_Slice  :  in  Row_Slices; 

Row  :  in  Row_Indices; 

Matrix  :  out  Matrices)  is 


—  declaration  section 


INDEX  :  Col_Indices; 
Marker  :  POSITIVE; 
StopHere  :  POSITIVE; 


—  —  begin  procedure  Initialize 


begin 

INDEX  :=  Col_Ind i ces ' FIRST ; 

Marker  :=  Row  Marker(Row); 

Stop_Here  :=  Marker  +  Col_0ffset(Swap_Col(Row)) ; 
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Process: 

loop 

Matrix(Marker)  :=  Rov_Slice(INDEX) ; 

exit  Process  when  Marker  =  Stop_Here; 
INDEX  :=  Col  Indices' SUCC( INDEX ) ; 
Marker  :*  Marker  +  1; 

end  loop  Process; 

end  Initialize; 


pragma  PAGE; 

function  Identity_Matrix  return  Matrices  is 
begin 

return  Loc'al_Identity_Matrix; 
end  Identity_Matrix; 


pragma  PAGE; 

function  Zero  Matrix  return  Matrices  is 


begin 

return  LocalZeroMatrix; 
end  Zero  Matrix; 


pragma  PAGE; 

procedure  Change  Element 


(Nev_Value  : 

in 

Elements; 

Row  : 

in 

Rov_Indices; 

COL  : 

in 

Col_Indices; 

Matrix  : 

out 

Matrices)  is 

begin 

—  determine  which  half  of  the  matrix  is  being  referenced 

if  Rov_Indices'POS(Rov)  -  Rov_Indices'POS(Rov_Indices' FIRST)  >* 
Col_Indices'P0S(C0L)  -  Col~Indices' POS(Col_Indices'FIRST)  then 

—  looking  at  bottom  half  of  array 

Matrix(Rov_Marker(Rov)  +  Col_0ffset(C0L) )  :«  New_Value; 
else 

—  looking  at  top  half;  need  to  switch  to  bottom  half 
Matrix(Rov_Marker(Swap_Rov(COL) )  + 

Col_Offset(Svap_Col(Rov)))  :=  Nev_Value; 


end  if; 

end  Change_Element ; 


pragma  PAGE; 
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function  Retrieve  Element 


(Matrix 

Row 

COL 


Matrices; 

Row_Indices; 

Col  Indices)  return  Elements  is 


—  declaration  section 


Answer  :  Elements; 


—  —  begin  function  Retrieve  Element 


begin 

—  determine  which  half  of  the  array  is  being  referenced 

if  Row_Indices'P’OS(Row)  -  Row_Indices' POS(Row_Indices' FIRST)  >* 
Col_Indices'POS(COL)  -  Col~Indices' POS(Col_Indices' FIRST)  then 

—  already  looking  at  the  bottom  half  of  the  array 

Answer  :*  Matrix(Row_Marker(Row)  +  Col_0ffset(C0L)) ; 

else 

—  looking  at  the  top  half;  need  to  switch  to  bottom  half 
Answer  :«=  Matrix(Row_Marker(Swap_Row(COL))  + 

Col_Offset(Swap_Col(Row))) ; 

end  if; 

return  Answer; 
end  Retrieve_Element ; 
pragma  PAGE; 

function  Row_Slice  (Matrix  :  Matrices; 

Row  :  Row  Indices)  return  Row  Slices  is 


—  declaration  section 


Answer  :  Row  Slices; 


—  —  begin  function  Row  Slice 


begin 

—  retrieve  row  elements  in  bottom  half  of  array 

Bottom_Loop: 

for~C0L  in  Col_Indices' FIRST  ..  Swap_Col(Row)  loop 

Answer(COL)  :=  Matrix(Row_Marker(Row)  +  Col_0ffset(C0L)) ; 
end  loop  Bottom_Loop; 
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—  retrieve  row  elements  in  top  half  of  array,  if  there  are  any 

if  Row  /=  Row_Indices'LAST  then 
Top  Loop: 

lor  COL  in  Col_Indices'SUCC(Swap  Col(Rov))  ..  Col_Indices'LAST  loop 
Answer(COL)  :=  Matrix(Row_MarIcer(Swap_Row(C0L)7  + 

Col_0f f set ( Svap_Col(Row) j ) ; 

end  loop  Top_Loop; 
end  if; 

return  Answer; 
end  Row_Slice; 
pragma  PAGE; 

function  Column_Slice  (Matrix  :  Matrices; 

COL  :  Col  Indices)  return  Col  Slices  is 


—  declaration  section 


Answer  :  Col  Slices; 


—  —  begin  function  Column  Slice 


begin 

—  retrieve  column  elements  contained  in  bottom  half  of  array 
Bottom_Loop: 

for  Row  in  Swap_Rov(C0L)  ..  Rowlndices '  LAST  loop 

Answer(Row)  :*  Matrix(Row_Marker(Row)  +  Col_0ffset(C0L)){ 
end  loop  Bottom_Loop; 

—  retrieve  column  elements  contained  in  top  half  of  array,  if  any 
if  COL  /=  Collndices' FIRST  then 

Top  Loop: 

lor  Row  in  Rov_Indices' FIRST  ..  Row  Indices' PRED(Swap_Row(COL) )  loop 
Answer(Row)  :*  Matrix(Row_Marker7Swap_Row(C0L))  + 

Col~0f f set ( Swap~Col(Rov) ) ) ; 

end  loop  Top_Loop; 
end  if; 

return  Answer; 
end  Column_Slice; 
pragma  PAGE; 

function  Add  Toldentity  (Input  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 
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—  —  begin  function  Add  Jo  Identity 


begin 


—  do  straight  assignment  of  all  elements  and  then  add  in  the 

—  identity  matrix 


Answer  :«  Input; 


— all  diagonal  elements,  except  for  the  last  one,  are  located  one 

—  entry  before  the  starting  location  of  the  next  row 
Add  Identity_Loop: 

lor  INDEX  in  Row_Indices'SUCC(Row_Indices' FIRST)  .. 

Row_Indices ' LAST  loop 

Answer(Row_Marker(INDEX)  -  1)  Answer(Row_Marker(INDEX)-l)  +  1.0; 
end  loop  Add_Identity_Loop; 

—  handle  last  diagonal  element 

Answer(Entry_Count)  Answer(Entry_Count)  +  1.0; 
return  Answer; 


end  Add_To_Identity; 


pragma  PAGE; 

function  Subtract  From  ldentity  (Input  s  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 


—  —  begin  function  Subtract from  Identity 


begin 

—  subtract  Input  from  a  zero  matrix  and  then  add  it  to  an  identity  matrix 
Subtract_Loop: 

for  INDEX  in  1. .Entry_Count  loop 
Answer (INDEX)  :=  -  Input(INDEX) ; 
end  loop  Subtract_Loop; 

—  all  diagonal  elements,  except  for  the  last  one,  are  located  one 

—  entry  before  the  starting  location  of  the  next  row 
Add  Identity  Loop: 

lor  INDEX_in  Row_Indi ces '  SUCC(Row_Indi ces '  FIRST )  .. 

Tow_Indices'LAST  loop 

Answer(R».  _Marker( INDEX)  -  1)  :=  Answer(Row_Marker(INDEX)-l)  +  1.0; 
end  loop  Add_Identity_Loop; 


—  handle  last  diagonal  element 
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Answer(Entry_Count)  :  =  Answer (Entry_Count)  +  1.0; 
return  Answer; 
end  Subtract_From_Identity; 
pragma  PAGE; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 


—  —  begin  Junction  "  +  " 


begin 

Process: 

for  INDEX  in  1. .Entry_Count  loop 

Answer (INDEX)  :«  Lef t(INDEX)  +  Right(INDEX); 
end  loop  Process; 

return  Answer; 

end 

pragma  PAGE; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 


—  — begin  function 


begin 

Process: 

for  INDEX  in  1  . .  Entry_Count  loop 

Answer (INDEX)  :=  Left (INDEX)  -  Righ t( INDEX ) ; 
end  loop  Process; 

return  Answer; 

end 


pragma  PAGE; 
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—  begin  processing  for  Symmetric  Half  Storage 

—  Matrix  Operations  package  body 


begin 

InitJBlock: 

declare 

COUNT  :  NATURAL; 

Offset  :  NATURAL; 

Rov_Starting_Point  :  NATURAL; 

begin 

—  make  sure  lengths  of  row  and  col  indices  are  the  same 
if  RowSlices' LENGTH  /-  Col_Slices' LENGTH  then 

raise  Dimension_Error; 

else 


—  initialize  row  marker  identity  matrix  arrays ; 

— all  diagonal  elements,  except  for  the  last  one,  which  require 

—  a  value  of  I  for  the  identity  matrix  are  located  one  entry 

—  before  the  starting  location  of  the  next  row 


—  handle  first  row  marker  entry  to  simplify  initialization  of 

—  the  identity  matrix  -(NOTE:  count  implicitly  equals  0) 

Rov_Marker ( Rov_Ind i ces ' FIRST )  :«  1; 

COUNT  1; 

Row  Marker_And_Identity  Matrix_Init  Loop: 

lor  INDEX  in  Row_IndIces ' SUCC(Row_Indices ' FIRST)  .. 
Row_Ind ices 'LAST  loop 

Row_Starting_Point  (COUNT  *  (C0UNT+1)  /  2)  +  1; 

Row_Marker( INDEX)  :■  Row_Starting_Point; 
Local_Identity_Matrix(Row_Starting_Point-l)  :■  1.0; 

COUNT  :«  COUNT  +  1; 

end  loop  Row_Marker_And_Identity_Matrix_Init_Loop; 

—  initialize  last  diagonal  element 
Local_Identity_Matrix(Entry_Count)  :=  1.0; 


—  initialize  column  offset  arra}! 


Offset  :=  0; 

Col  Marker  Init  Loop: 
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for  INDEX  in  Col_Indices  loop 
Col_0ff set (INDEX)  :=  Offset; 
Offset  :=  Offset  +  1; 
end  loop  Col_Marker_Init_Loop; 

end  if; 

end  Init_Block; 

end  Symmetric_Half_Storage_Matrix_Operations ; 
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separate  (General_Vector_Matrix_Algebra) 

package  body  Symmetric_Full_Storage_Matrix_Operations_Unconstrained  is 


pragma  PAGE; 

procedure  Change_Element  (New  Value 

Row- 


COL 

Matrix 


in  Elements; 

in  Row_Indices; 

in  Col~Indices; 

in  out  Matrices)  is 


—  declaration  section- 


S_Col  :  Col_Indices; 
S  Row  :  Row  Indices; 


—  —  begin  procedure  Change  Element- 


begin 

—  make  sure  you  have  a  square  matrix 

if  Matrix' LENGTH(l)  /-  Matrix' LENGTH(2)  then 

raise  Dimension_Error; 

—  make  sure  row  and  col  are  within  bounds 

elsif  not  (Row  in  Matrix' range(l)  and 
COL  in  Matrix'  range(2>)  then 

raise  Invalid_Index; 

else 

—  everything  is  okay 

S_Col  :=  Col_Indices'VAL(Row_Indices'POS(Row)  - 

Row_Ind i ces ' P0S(Matrix' FIRST( 1 ) )  + 
Collndices ' P0S(Matrix' FIRST(2) ) ) ; 

S_Row  :=  Row_Indices'VAL(Col_Indices'POS(COL)  - 

Col_Indices'P0S(Matrix'FIRST(2))  + 
Row_Ind i ces '  POS ( Ma  t  r i x ' FIRST ( 1 ) ) ) ; 

Matrix(Row,  COL)  :=  New_Value; 

Matrix(S_Row,  S_Col)  :=  New_Value; 

end  if; 

end  ChangeElement; 
pragma  PAGE; 

procedure  Set_To_Identity_Matrix  (Matrix  s  out  Matrices)  is 


—  declaration  section- 
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COL  s  Col_Indices; 
Row  :  Row  Indices; 


—  —  begin  procedure  Set  jo  Identity- 


begin 

—  make  sure  input  matrix  is  a  square  matrix 

if  Matrix' LENGTH(l)  -  Matrix' LENGTH(2)  then 


Matrix  :*  (others  ■>  (others  «>  0.0)); 

Row  :=  Matrix' FIRST(l); 

COL  :=  Matrix'FIRST(2) ; 

Row  Loop: 

loop 

—  set  diagonal  element  equal  to 
Matrix(Rov,  COL)  1.0; 

exit  RowJLoop  when  Row  «  Matrix' LAST(l); 
Row  RowIndices'SUCC(Row); 

COL  ColIndices'SUCC(COL); 

end  loop  Row_Loop; 


else 

—  do  not  have  a  square  matrix 
raise  Dimension_Error; 

end  if; 

end  Set_To_Identity_Matrix; 
pragma  PAGE; 

procedure  Set_To_Zeio_Matrix  (Matrix  :  out  Matrices)  is 
begin 

Matrix  :=  (others  =>  (others  =>  0.0)); 
end  Set_To_Zero_Matrix; 
pragma  PAGE; 

function  Add_To_Identity  (Input  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer 


:  Matrices(Input'range(l),  Input' range(2)); 
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COL 

Row 


Col_Indices; 
Row  Indices; 


—  —  begin  function  Add  to  Identity 


begin 

—  make  sure  input  matrix  is  a  square  matrix 
if  Input' LENGTH(l)  -  Input 'LENGTH(2)  then 

Answer  :«=  Input; 

Row  Input'FIRST(l); 

COL  :=  Input'FIRST(2) ; 

Access_Diagonal_Elements  s 
loop 

Answer (Row, COL)  :=  Answer(Row,COL)  +  1.0; 

exit  Access_Diagonal  Elements  vhen  Row  -  Input 'LAST(l) ; 
Row  Row_Indices'SUCC(Row) ; 

COL  Co l_Ind ices' SUCC ( COL ) ; 

end  loop  AccessDiagonalElements; 

(•  else 

Vs*1*' 

—  do  not  have  a  square  matrix 
raise  Dimension_Error; 

end  if; 

return  Answer; 
end  Add_To_Identity; 
pragma  PAGE; 

function  Subtract_From_Identity  (Input  s  Matrices)  return  Matrices  is 


—  declaration  section 


Answer 

COL 

Col_Count 

Row 

Row_Count 
SCol 
S  Row 


Matrices(Input'range(l),  Input ' range(2) ) ; 
Col_Indices; 

POSITIVE; 

Row  Indices; 

POSITIVE; 

Col_Indices; 

Row  Indices; 


—  —  begin  function  Subtract  from  Identity 
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begin 

—  make  sure  input  matrix  is  a  square  matrix 
if  Input' LENGTH(l)  =  Input'LENGTH(2)  then 

—  will  subtract  input  matrix  from  an  identity  matrix  by  first 

—  subtracting  all  elements  from  0. 0  and  then  adding  I .  O' to  the 

—  diagonal  elements; 

—  when  doing  the  subtraction,  will  only  calculate  the  remainder 
— for  the  elements  in  the  bottom  half  of  the  matrix  aitd  will  simply 

—  do  assignments  for  the  symmetric  elements  in  the  top  half  of  the 

—  matrix 


Rov_Count  1; 

—  S  Col  will  go  across  the  columns  as  Row  goes  down  the  rows; 

—  will  mark  column  containing  the  diagonal  element  for  this  row 
Row  :=  Input 'FIRST(l); 

SCol  :=  Input 'FIRST(2); 

Do_Every_Row: 

loop 

Col_Count  : -  1; 

—  SRow  will  go  down  the  rows  as  Col  goes  across  the  columns; 

—  when  paired  with  S  Col  will  mark  the  symmetric  counterpart 

—  to  the  element  being  referenced  in  the  bottom  half  of  the 

—  matrix 

COL  :«  Input'FIRST(2); 

SRow  Input 'FIRST(l); 

Sub  t  rac  tElemen  t  s_From_Zero : 
loop 

— perform  subtraction  on  element  in  bottom  half  of  matrix 
Answer(Row,C0L)  :•=  -  Input  (Row,  COL) ; 

—  exit  loop  after  diagonal  element  has  been  reached 

exit  Subtract_Elements_From_Zero  when  Col_Count  « 

Row_Count; 

— assign  values  to  symmetric  elements  in  lop  half  of  matrix 

—  (done  after  check  for  diagonal,  since  diagonal  elements 

—  don ’t  have  a  symmetric  counterpart ) 

Answer(S_Row,S_Col)  :=  Answer (Row, COL) ; 

—  increment  variables 
Col_Count  :=  Col  Count  +  1; 

COL  :=  Col~Indices' SUCC(COL) ; 

S_Row  :=  Row_Indices' SUCC(S  Row); 

end  loop  Subtract_Elements_From_Zero; 

—  add  one  to  the  diagonal  element 

Answer(Rov,  COL)  :=  Answer(Row,  S_Col)  +  1.0; 

exit  Do_Every_Rov  when  Row_Count  =  Input' LENGTH(l) ; 

Row  Count  :=  Row  Count  +  1; 
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Re  v  Rov_Indices'  SUCC(Rov) ; 

SCol  :=  Col_Indices'SUCC(S_Col); 

end  loop  Do_Every_Rov; 


else 

raise  Dimens ion_Error; 
end  if; 

return  Answer; 
end  Subtract_From_Identity; 
pragma  PAGE; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer 

Col_Count 

Row_Count 

LCol 

L_Row  . 

RCol 

RRow 

SCol 

S  Row 


Matrices(Left'range(l),  Left' range(2)); 
POSITIVE; 

POSITIVE; 

Col_Indices; 

Row_Indices; 

Collndices; 

Rowlndices; 

Col_Indices; 

Row  Indices; 


—  —  begin  function  "  +  ” 


begin 

—  make  sure  both  input  matrices  are  square  matrices  of  the  same  size 
if  Left'LENGTH(l)  -  Left'LENGTH(2)  and 
Left'LENGTH(l)  «  Right 'LENGTH(l)  and 
Right 'LENGTH(l)  =  Right 'LENGTH(2)  then 

—  addition  calculations  will  only  be  carried  out  on  the  bottom  half 

—  of  the  input  matrices  followed  by  assignments  to  the  symmetric 

—  elements  in  the  top  half  of  the  matrix 

Row_Count  :=  1; 

—  as  L  Row  goes  down  the  rows,  S  Col  will  go  across  the  columns 
L_Row  :=  Left'FIRST(l); 

S_Col  :=  Left'FIRST(2) ; 

R_Row  :=  Right 'FIRST(l); 

Do_All_Rows: 

loop 
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Col_Count  :=  1; 

—  as  L  Col  goes  across  the  columns,  S  Row  will  go  down  the  rows 
L_Col" : =  Lef t'FIRST(2) ; 

S_Row  :=  Lef t'FIRST(l) ; 

R  Col  s-  Right' FIRST(2); 

A3d  Bottom_Half_Elements; 
loop 

Answer(L_Row,L_Col)  :*  Left(L_Rov,  L_Col)  + 

Right(R_Row,  R_Col); 

—  exit  when  diagonal  element  has  been  reached 

exit  Add_Bottom_Half_Elements  when  Col_Count  -  Rov_Count; 

— assign  value  to  symmetric  element  in  top  half  of  matrix 

—  (do  this  after  exit  since  diagonal  elements  don 't  have 

—  a  corresponding  symmetric  element) 

Answer (S_Row,S  Col)  : «  Answer(L_Row,L_Col) ; 

—  increment  values 

Col_Count  :■  Col_Count  +  1; 

LCol  ColIndices'SUCC(LCol); 

S_Row  :■  Row_Indices'SUCC(S_Row); 

RCol  Col_Indices ' SUCC(R_Col) ; 

end  loop  Add_Bottom_Half_Elements; 

exit  Do_All_Rows  when  Row  Count  -  Left'LENGTB(l); 

Row_Count  Row_Count  +  T; 

L_Row  :«  Row_Indices'SUCC(L_Row); 

S_Col  :=  Col_Indices'SUCC(S_Col); 

R_Row  :=  Row_Indices' SUCC(R_Row) ; 

end  loop  Do_All  Rows; 


else 

raise  Dimension_Error; 
end  if; 

return  Answer; 
end  "+"; 
pragma  PAGE; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer 


:  Matrices(Left'range(l),  Lef t ' range(2) ) ; 
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Col_Count 
Rov_Count 
L_Col 
L_Row 
R_Col 
R  Row 
S~Col 
S  Row 


POSITIVE; 

POSITIVE; 

Col_Indices; 

Row_Indices; 

Col_Indices; 

Row~Indices; 

Col_Indices; 

Row  Indices; 


—  —  begin  Junction  "  +  " 


begin 

—  make  sure  both  input  matrices  are  square  matrices  of  the  same  size 
if  Lef t'LENGTH(l)  -  Lef t ' LENGTH(2)  and 
Lef t'LENGTH(l)  =  Right 'LENGTH(l)  and 
Right 'LENGTH(l)  «  Right'LENGTH(2)  then 

— addition  calculations  will  only  be  carried  out  on  the  bottom  half 

—  of  the  input  matrices  followed  by  assignments  to  the  symmetric 

—  elements  in  the  top  half  of  the  matrix 

Row_Count  :«  1; 

— as  L  Row  goes  down  the  rows,  S  Col  will  go  across  the  columns 
L_Row  J-  Left'FIRST(l); 

SCol  :»  Left'FIRST(2); 

RRow  :«  Right 'FIRST(l); 

Do_All_Rows : 
loop 

Col_Count  :*  1; 

—  as  L  Col  goes  across  the  columns,  S  Row  will  go  down  the  rows 
L_Col':»  Lef t'FIRST(2) ; 

SRow  :«  Left'FIRST(l); 

R  Col  Right 'FIRST(2); 

A3d  Bottom_Half_Elements: 
loop 

Answer(L_Row,L_Col)  :*  Left(L_Row,  L_Col)  - 

Right (R_Row,  R_Col); 

—  exit  when  diagonal  element  has  been  reached 

exit  Add_Bottom_Half_Elements  when  Col_Count  =  Row_Count; 

—  assign  value  to  symmetric  element  in  top  half  of  matrix 

—  (do  this  after  exit  since  diagonal  elements  don 't  have 

—  a  corresponding  symmetric  element ) 

Answer(S_Row,S_Col)  :=  Answer(L  Row,L_Col); 

—  increment  values 

Col  Count  :«  Col  Count  +  1; 
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L_Col  ColIndices'SUCC(LCol); 

S_Rov  : =  Row_Ind ices' SUCC ( S_Row ) ; 

R_Col  :=  ColIndices'SUCC(RCol); 

end  loop  Add_Bottom_Half_Elements; 

exit  Do_All_Rows  when  Row  Count  =  Lef t'LENGTH(l) ; 
Row_Count  :=  Row_Count  +  T; 

L_Row  :«  Row_Indices'SUCC(L_Row) ; 

SCol  :•=  Col_Indices'SUCC(S_Col) ; 

R_Row  :=  Row_Indices'SUCC(R~Row); 

end  loop  Do_All_Rovs; 


else 

raise  Dimension_Error; 
end  if; 

return  Answer; 

end 

end  Symme  t  r  i  c_Ful  1_S  t  orage  Ma  t  r  ix_0pera  t  ions  Uncons  t  rained  j 
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separate  ( General_Vec t or_Ma t r ix_Algebra ) 
package  body  Diagonal_Matrix_Operations  is 


—  —  local  declarations 


type  ColMarkers  is  array(Col_Indices)  of  POSITIVE} 
type  RovMarkers  is  array(Rov_Indices)  of  POSITIVE; 

Col_Marker  :  Col_Markers; 

Rov_Marker  :  Row_Markers; 

Row_Minus_Col_Indices_Pos_First  :  constant  INTEGER 

Rov_Indices'POS(Rov_Indices'FIRST)  - 
Co l_Ind i ces ' POS ( Col_Ind ices'  FIRST  ) ; 

Local_Identity_Matrix  :  constant  Diagonal_Matrices  s-  (others  *>  1.0); 
Local_Zero_Matrix  :  constant  Diagonal_Matrices  :■  (others  =>  0.0); 

pragma  PAGE; 

function  Identity_Matrix  return  Diagonal_Matrices  is 
begin 


return  Local_Identity_Matrix; 
end  IdentityMatrix; 


pragma  PAGE; 

function  Zero_Matrix  return  Diagonal_Matrices  is 
begin 


return  Local_Zero_Matrix; 
end  Zero_Matrix; 


pragma  PAGE; 

procedure  Change_Element 


(Nev_Value 

:  in 

Elements; 

Row 

:  in 

Rov_Indices; 

COL 

:  in 

Col_Indices; 

Matrix 

:  out 

Diagonal_Matrices)  is 

begin 

—  make  sure  element  referenced  is  on  the  diagonal 

if  Rov_Marker(Rov)  =  Col_Marker(C0L)  then 

Matrix(Row_Marker(Row) )  :=  Nev_Value; 
else 

raise  Invalid  Index; 


end  if; 
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end  Change_Element ; 
pragma  PAGE; 

function  Retrieve_Element  (Matrix  :  Diagonal_Matrices; 

Row  :  Row_Indices; 

COL  :  Col_Indices)  return  Elements  is 

begin 

—  make  sure  (row, col)  falls  on  the  diagonal 
if  RowMarker(Row)  /*  Col_Marker(C0L)  then 
raise  Invalid_Index; 
end  if; 

return  Matrix(Row_Marker(Row)); 
end  RetrieveElement ; 
pragma  PAGE; 

function  Row_Slice  (Matrix  :  Diagonal_Matrices; 

Row  ;  Row  Indices)  return  Row  Slices  is 


—  declaration  section 


Col_Spot  :  Col_Indices; 
Answer  :  Row  Slices; 


—  —  begin  function  Row  Slice 


begin 

—  zero  out  slice 

Answer  :=  (others  ->  0.0); 

—  insert  diagonal  element 

Col_Spot  :«  Col_Indices'VAL(Row_Indices'POS(Rov)  - 

Row_Minus  Col  Indices_Pos_Pirst) ; 
Answer(Col_Spot)  Matrix(Row_Marker^RowT) ; 

return  Answer; 

end  Row_Slice; 

pragma  PAGE; 

function  Column_Slice  (Matrix  :  Diagonal_Matrices; 

COL  :  Col  Indices)  return  Col  Slices  is 


—  declaration  section 


Answer  :  Col_Slices; 
Row_Spot  :  Row_Indices; 
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—  —  begin  function  Column  Slice 


begin 

—  zero  out  answer  and  then  insert  diagonal  value 
Answer  :  =  (others  *>  0.0); 

—  insert  diagonal  value 

Row_Spot  Row_Indices'VAL(Col_Indices'P0S(C0L)  + 

Row_Minus  Col  Indices_Pos_First) ; 
Answer(Row_Spot)  :*  Matrix(Col_MarkerTC0L7) ; 

return  Answer; 

end  Column  Slice; 

pragma  PAGE; 

function  Add_To_Identity  (Input  :  Diagonal  Mat rices) 

return  Diagonal_Matrices  is 


—  declaration  section 


Answer  :  DiagonalMat rices; 


—  —  begin  function  Add  jo  Identity 


begin 

Process: 

for  INDEX  in  1.. Entry  Count  loop 

Answer (INDEX)  Input (INDEX)  +  1.0; 

end  loop  Process; 

return  Answer; 

end  Add_To_Identity; 

pragma  PAGE; 

function  Subtract_From_Identity  (Input  :  Diagonal  Matrices) 

return  Diagonal_Matrices  is 


—  declaration  section 


Answer  :  Diagonal_Matrices; 


—  —  begin  function  Subtract  From  Identity 
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begin 

Process: 

for  INDEX  in  1.  .Entry_Count  loop 

Answer (INDEX)  :=  1.0  -  Input(INDEX); 
end  loop  Process; 

return  Answer; 

end  Subtract_From_Identity; 

pragma  PAGE; 

function  (Left  :  Diagonal_Matrices; 

Right  :  Diagonal_Mat rices)  return  Diagonal_Matrices  is 


—  declaration  section 


Answer  :  Diagonal_Matrices; 


—  —  begin  function  "  +  " 


begin 

Process: 

for  INDEX  in  1.  .Entry  Count  loop 

Answer  (INDEX)  :«  Left  (INDEX)  +  Right(INDEX) ; 
end  loop  Process; 

return  Answer; 

end  "+"; 

pragma  PAGE; 

function  (Left  :  Diagonal_Ma trices; 

Right  :  Diagonal_Matrices)  return  Diagonal_Matrices  is 


—  declaration  section 


Answer  :  Diagonal_Matrices; 


—  — begin  function  *-" 


begin 

Process: 

for  INDEX  in  1.  .Entry_Count  loop 

Answer (INDEX)  :=  Left (INDEX)  -  Right ( INDEX) ; 
end  loop  Process; 
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return  Answer; 

end 

pragma  PAGE; 


—  begin  processing  for  Diagonal 

—  Matrix  Operations  package 


begin 

Init_Blockj 

declare 

ColCount  :  POSITIVE; 

RowCount  :  POSITIVE; 

begin 

—  make  sure  lengths  of  indices  are  the  same 
if  Row_Slices' LENGTH  .  Col_Slices' LENGTH  then 

—  initialize  row  and  column  marker  arrays 

RowCount  :«  1; 

Row  Init: 

Tor  Row  in  Row  Indices  loop 

RowMarker(Kow)  :•  Row  Count; 
Row_Count  :»  Row~Count  +  1; 

•  end  loop  Row_Init; 

Col_Count  :*  1; 

Col  Init: 

Tor  COL  in  Col_Indices  loop 

Col_Marker(COL)  :■  Col_Count; 
Col_Count  :■  Col_Count  +  1; 

end  loop  Col_Init; 

else 

raise  Dimension_Error; 
end  if; 

end  Init_Block; 

end  Diagonal_Matrix_Operations; 
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separate  (General_Vector_Matrix_Algebra) 

package  body  Vector_Scalar_Operations_Unconstrained  is 

pragma  PAGE; 

function  (Vector  :  Vectors2; 

Multiplier  :  Scalars)  return  Vectorsl  is 


—  declaration  section- 


Answer  :  Vectorsl(Indict:sl' FIRST  .. 

Indicesl 'VAL(Vector' LENGTH- 1  + 

Indicesl ' P0S(Indicesl ' FIRST)  )); 

A_Index  :  Indicesl; 

V  Index  :  Indices2; 


—  — begin  function 


begin 

A_Index  :*  Indicesl 'FIRST; 

VIndex  Indices2' FIRST; 

Process: 

loop 

Answer(AIndex)  :*  Vector(VIndex)  *  Multiplier; 

exit  Process  when  V_Index  -  Vector'LAST; 

A_Index  :«  Indicesl' SUCC(A_Index) ; 

V_Index  Indices2'SUCC(V_Index) ; 

end  loop  Process; 

return  Answer; 

end 

pragma  PAGE; 

function  "/"  (Vector  :  Vectorsl; 

Divisor  :  Scalars)  return  Vectors2  is 


—  declaration  section- 


Answer  :  Vectors2(Indices2' FIRST  .. 

Indices2'VAL(Vector' LENGTH- 1  + 

Indices2 ' P0S(Indices2 ' FIRST)  )); 

A_Index  :  Indices2; 

V  Index  :  Indicesl; 


—  — begin  function  Vector  Scalar  Divide 
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begin 

AIndex  :=  Indices2' FIRST; 

V_Index  :=  Indicesl' FIRST; 

Process: 

loop 

Answer (A_Index)  :=  Vector (V_Index)  /  Divisor; 

exit  Process  when  V_Index  -  Indicesl 'LAST; 
A_Index  :=  Indices2rSUCC(A_Index) ; 

V_Index  :■  Indicesl 'SUCC(V_Index); 

end  loop  Process; 

return  Answer; 

end 

end  Vector_Scalar_Operations_Uncons trained; 
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separate  (General  Vector_Matrix_Algebra) 

package  body  MatrIx_Scalar_Operations_Unconstrained  is 

pragma  PAGE; 

function  (Matrix  :  Matricesl; 

Multiplier  :  Scalars)  return  Matrices2  is 


—  declaration  section- 


Answer  :  Matrices2 

(Row_Indices2' FIRST  .. 

Row_Indices2'VAL(Matrix'LENGTH(l)-l  + 

Rov_Indices2 ' P0S(Row_Indices2'  FIRST)  ) , 
Col_Indices2' FIRST  .. 

Col_Indices2' VAL(  Matrix '  LENGTH  (2  )-l  + 

Col_Indices2'P0S(Col_Indices2' FIRST)  )); 

ACol  :  Col_Indices2; 

ARow  :  Row_Indices2; 

M_Col  :  Collndicesl; 

M  Row  :  Row  Indicesl; 


—  — begin  Junction 


begin 

A_Row  Row_Indices2 ' FIRST ; 

M  Row  Matrix' FIRST(l); 

Row  Loop: 
loop 

A  Col  :«=  Col_Indices2' FIRST; 

M_Col  :=  Matrix' FIRST(2); 

Col_Loop: 

loop 

Answer(A_Row,  A_Col)  :■  Matrix(M_Row,  M_Col)  *  Multiplier; 

exit  Col  Loop  when  M  Col  -  Matrix' LAST(2); 

A_Col  :«“Col_Indices7'  SUCC(A_Col) ; 

M_Col  Col_Indicesl ' SUCC(M_Col) ; 

end  loop  Col_Loop; 

exit  Row_Loop  when  M  Row  =  Matrix' LAST(l) ; 

A_Row  :=  Row_IndicesI' SUCC (A_Row) ; 

M_Row  :=  Row_Indicesl '  SUCC(M_Row) ; 

end  loop  Row_Loop; 

return  Answer; 


end 
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pragma  PAGE; 

function  "/"  (Matrix  :  Matrices2; 

Divisor  :  Scalars)  return  Matricesl  is 


—  declaration  section- 


Ansver  :  Matricesl 

(Rowlndicesl' FIRST  .. 

Rov_Ind i ces 1 ' VAL ( Ma  t  r i x ' LENGTH ( 1 ) -1  + 

Row_Indicesl'POS(Row  Indicesl' FIRST)  ), 
Collndicesl' FIRST  .. 

Col_Tndicesl'VAL(Matrix' LENGTH (2 )-l  + 

Col_Ind i ces 1 ' POS ( Col_Ind i ces 1 ' FIRST )  )); 

A_Col  :  Col_Indicesl; 

A~Row  :  Row_Indicesl; 

M_Col  :  Col_Indices2; 

M  Row  :  Row  Indices2; 


—  — begin  function  "/" 


begin 

A_Row  :«  Row_Indicesl' FIRST; 

M  Row  Matrix' FIRST(l); 

Row  Loop: 
loop 

ACol  Col_Indicesl ' FIRST ; 

MCol  :«  Matrix' FIRST(2); 

Col_Loop: 

loop 

Answer(A_Row,  A_Col)  :*  Matrix(M_Row,  M_Col)  /  Divisor; 

exit  Col  Loop  when  M  Col  -  Matrix' LAST(2); 

A_Col  :«  Col_IndicesT' SUCC(A_Col) ; 

MCol  Col_Indices2 ' SUCC(M_Col) ; 

end  loop  Col_Loop; 

exit  Row_Loop  when  M  Row  ■  Matrix' LAST(l); 

A_Row  : =  Row_IndicesI' SUCC(A_Row) ; 

M_Row  :■=  Row_Indices2' SUCC(M_Row) ; 

end  loop  Row_Loop; 

return  Answer; 

end  "/"; 


end  Matrix  Scalar  Operations  Unconstrained; 


CAMP  Software  Detailed  Design  Document 


Page  1068 


separate  (General_Vector_Matrix_Algebra) 
package  body  Diagonal_Matrix_Scalar_Operations  is 

pragma  PAGE; 

function  (Matrix  :  Diagonal  Matricesl; 

Multiplier  :  Scalars)~retum  Diagonal_Matrices2  is 


—  declaration  section - 


Answer  :  Diagonal_Matrices2; 
Indexl  :  Diagonal_Rangel; 
Index2  :  Diagonal_Range2; 


—  — begin  function 


begin 

Indexl  :  =  Diagonal  Rangel' FIRST; 

Index2  : -  Diagonal_Range2' FIRST; 

Process: 

loop 

Answer (Index2)  :■  Matrix(Indexl)  *  Multiplier; 

exit  Process  vhen  Indexl  «  Diagonal_Rangel'LAST; 
Indexl  :«  DiagonalRangel' SUCC( Indexl ) ; 

Index2  Diagonal_Range2'SUCC(Index2) ; 

end  loop  Process; 

return  Answer; 

end 

pragma  PAGE; 

function  "/"  (Matrix  :  Diagonal_Matrices2; 

Divisor  :  Scalars )~return  Diagonal_Matricesl  is 


—  declaration  scclion- 


Answer  :  DiagonalMatricesl; 
Indexl  :  Diagonal~Rangel; 
Index2  :  Diagonal_Range2; 


—  —  begin  function 


begin 

Indexl  :=  Diagonal_Rangel' FIRST; 
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Index2  :=  Diagonal_Range2' FIRST; 

Process: 

loop 

Answer(Indexl)  :=  Matrix(Index2)  /  Divisor; 

exit  Process  when  Indexl  =  Diagonal_Rangel'LAST; 
Indexl  Diagonal_Rangel'SUCC( Indexl); 

Index2  :«  Diagonal~Range2' SUCC(Index2) ; 

end  loop  Process; 

return  Answer; 

end  "/"; 

pragma  PAGE; 


—  begin  processing  for  package  body 


begin 

—  make  sure  instantiated  diagonal  matrices  are  of  the  same  size 
if  Diagonal_Matricesl ' LENGTH  /-  Diagonal_Matrices2 ' LENGTH  then 
raise  Dimension_Error; 
end  if; 

end  Diagonal  Matrix  Scalar  Operations ; 
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separate  (General  Vector  Matrix  Algebra) 

package  body  MatrIx_MatrIx_MultIply_Unrestricted  is 

pragma  PAGE; 

function  (Left  :  Lef t_Matrices; 

Right  :  Right_Matrices)  return  Output_Matrices  is 


—  declaration  section- 


Answer 

M_Ansver 

MLeft 

N_Lef t 

N_Right 

P_Answer 

PRight 


Output_Matrices; 
Output_Rov_Indices ; 
Le f t _R o v_I nd i c e s ; 
Lef t_Col~Indices; 
Right_Row  Indices; 
Ou  t  pu  t _CoT_Ind ices; 
Right_Col_Indices ; 


—  — begin  of  function 


begin 

M_Ansver  :*  Output_Row_Indices' FIRST; 

MLeft  Lef tRowInd ices 'FIRST; 

M_Loop : 
loop 

P  Answer  Output  Col  Indices' FIRST; 

PRight  :«  RightColInd ices 'FIRST; 

P_Loop : 
loop 

Answer (M_Answer,  P_Answer) 

NLeft 
NRight 
N_Loop : 
loop 

Answer(M_Answer,  P_Answer) 

Answer(M  Answer,  P_Answer)  + 

Lef t(M_Lef t,  N_Left)  *  Right(N_Right,  PRight); 

exit  N_Loop  when  N  Left  =  Lef t_Col_Ind ices 'LAST; 
N_Left_  :=  Lef t_CoI_Ind ices' SUCC(N~Lef t) ; 

N_Right  :=  Right_Row_Indices' SUCC(N_Right) ; 

end  loop  N_Loop; 

exit  P_Loop  when  P_Right  =  Right_Col_Indices'LAST; 
P_Right  :=  Right_Col  Indices ' SUCC(P_Right) ; 

P_Answer  :=  Output_CoT_Ind ices' SUCC(P_Answer) ; 


=  0.0; 

-  Lef t_Col_Indices' FIRST; 

■  Right_Row_Indices'FIRST; 


end  loop  P_Loop; 
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exit  M_Loop  vhen  M_Left  -  Left_Rov_Indices'LAST; 
M_Left  :*  Lef t_Row_Ind ices' SUCC(M  Left); 
M_Ansver  :=  Output_Row_Indices' SUCClM_Answer) ; 

end  loop  M_Loop; 

return  Answer; 

end 

pragma  PAGE; 


—  begin  processing  for  package  body 


begin 

—  —  make  sure  dimensions  are  compatible:  to  be  compatible  the  following 

—  —  conditions  must  'exist: 

—  —  must  be  trying  to  multiply:  /m  x  n/  x  In  x  pi :  =  / m  x  pi 

if  not  ( Le  f  t  _Ma  t  r  i  ces ' LENGTH ( 2 )  -  Right_Matrices'LENGTH(l)  and  —  "it's" 

Lef t_Matr ices' LENGTH(l)  -  Ou tput_Mat rices 'LENGTH(l)  and  — "m's ” 

Right_Matrices'LENGTH(2)  -  0utput~Matrices'LENGTH(2))  then  — "p's" 

— dimensions  are  incompatible 
raise  Dimension_Error; 

end  if; 

end  Ma t r i x_Ma t r ix_Mul  t i ply_Unres t r i c ted ; 
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separate  (General_Vector_Matrix  Algebra) 

package  body  MatrIx_Vector_MultIply_Unrestricted  is 

pragma  PAGE; 

function  (Matrix  :  Input_Matrices; 

Vector  :  Input_Vectors)  return  Output_Vectors  is 


—  declaration  section- 


Answer  s  Output_Vectors; 
M_Ansver  :  Output  Vector_Indices; 
M_Matrix  :  Row_In3ices; 

NMatrix  :  Col_Indices; 

NVector  :  Input_Vector_Indices; 


—  — begin  function 


begin 

M_Ansver  :«  Output  Vector  Indices' FIRST; 

MMatrix  RowInHices' FIRST; 

M_Loop : 

loop 

Ansver(M_Ansver)  :*  0.0; 

NMatrix  Collndices' FIRST; 

N_Vector  Input_Vector_Ind ices 'FIRST; 

N_Loop : 
loop 

Answer (M_Ans we r)  :=  Answer (M_Answer)  + 

Matrix(M_Matrix7  N_Matrix)  *  Vector(N_Vector) ; 

exit  N  Loop  when  N  Matrix  -  Col  Indices'LAST; 

N_MatrTx  :■  Col_In3ices'SUCC(N_Ratrix); 

N_Vector  s«  Input_Vector_Indices'SUCC(N_Vector); 

end  loop  N_Loop; 

exit  M  Loop  vhen  M  Matrix  -  Row_Ind  ices  'LAST; 

M_MatrIx  :=  Row_In3ices'SUCC(M_Matrix); 

M_Answer  :=  Output_Vector_Indices'SUCC(M_Answer); 

end  loop  M_Loop; 

return  Answer; 

end 


pragma  PAGE; 

—  begin  processing  for  package  body 
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begin 

—  —  make  sure  dimensions  are  compatible;  for  dimensions  to  be  compatible  the  following 

—  — conditions  must  is  what  should  be  requested:  /m  x  nj  x  In  x  1 1  =  (m  x  lj 

if  not  (Input_Matrices'LENGTH(2)  ■  Input_Vec  tors  'LENGTH  and  — "n's" 

Input_Matrices'LENGTH(l)  -  Output_Vectors' LENGTH)  then  — "m's" 

—  dimensions  are  incompatible 

raise  Dimension_Error; 

end  if; 

end  Matrix_Vector_Multiply_Unrestricted; 
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separate  ( General_Vec t or_Ma t r i x_Algebra ) 

package  body  Vector_Vector_Transpose_Multiply_Unrestricted  is 
pragma  PAGE; 

function  (Left  :  Left_Vectors  ; 

Right  :  Right_Vectors)  return  Matrices  is 


—  declaration  section 


Answer  s  Matrices; 

M_Answer  :  Row_Indices; 

M_Left  :  Lef t_Vector_Indices; 
N_Answer  :  Col  Indices; 

N_Right  :  RigHt_Vector_Indices; 


—  —  begin  function 


begin 

M_Answer  :»  Row_Ind ices 'FIRST; 

M_Left  :«  Lef t_Vector_Indices' FIRST; 

MLoop: 

loop 

NRight  RightVector  Indices 'FIRST; 

NAnswer  :*  Collndices' FIRST; 

N_Loop: 

loop 

Answer (M_Answer ,  N_Answer)  Left(M_Left)  *  Right (N_Right ) ; 

exit  N_Loop  when  N_Right  «  Right_Vector_Indices'LAST; 

N_Right  :■=  Right_Vector_Indices'SUCC(N_Right); 

N_Answer  Col_Indices'?UCC(N_Answer); 

end  loop  N_Loop; 

exit  M_Loop  when  M  Answer  -  Row_Indices'LAST; 

M_Answer  : -  Row_In3ices' SUCC(M_Answer) ; 

M_Left  :«  Lef t_Vector_Indices' SUCC(M_Lef t) ; 

end  loop  M_Loop; 

return  Answer; 

end 

pragma  PAGE; 


—  begin  processing  for  package  body 


begin 
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—  —  make  sure  dimensions  are  compalible;must  have  the  following  conditions: 

—  — attempted  operation  is  /m  x  //  x  //  x  nj  /mx  nj 

if  not  (Left_Vec  tors 'LENGTH  «  Matr  ices' LENGTH(l)  and  —"m's" 

Right_Vectors' LENGTH  =  Matrices 'LENGTH(2))  then  —"n's" 

raise  Dimension_Error; 

end  if; 

end  Vector_Vector_Transpose_Multiply_Unres  trie  ted; 
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separate  (General  Vector  Matrix_Algebra) 

package  body  MatrTx_MatrIx_Transpose_Multiply_Unrestricted  is 
pragma  PAGE; 

function  (Left  :  Lef t_Matrices; 

Right  :  Right_Matrices)  return  Out put_Mat rices  is 


—  declaration  section 


Answer 

M_Answer 

M_Lef t 

NLeft 

N_Right 

P_Answer 

P  Right 


Output_Matrices; 
Output~Row_Indices; 
Le  f  t _Row_I nd i ce  s ; 
Left_Col  Indices; 
Right_CoI  Indices; 
Output_CoT_Indices; 
Right_Row_Indices ; 


—  — begin  Junction 


begin 

M  Answer  :■=  Output  Row  Ind ices' FIRST; 

MLeft  Lef t_Row_Indices' FIRST; 

M_Loop: 

loop 

P_Answer  :■  Output_Col_Indices' FIRST; 

P_Right  * m  Right_Row_Indices' FIRST; 

P_Loop : 
loop 

Answer (M_Answer,  P_Answer)  :=  0.0; 

N_Lef t  Left_Col  Indices 'FIRST; 

N_Right  :■  Right_CoI_Ind ices'  FIRST; 

N_Loop: 

loop 

Answer (M_Answer,  P_Answer)  :■ 

Answer (M_Answer,  P_Answer)  + 

Left(M_Left,  N_Left)  *  Right (P_Right,  N_Right); 

exit  N_Loop  when  N  Left  -  Lef  t_Col_Ind ices' LAST; 
N_Left  :«  Left_CoI  Indices' SUCC(N_Left) ; 

N_Right  :=  Right_CoI_Indices'SUCC(N_Right); 

end  loop  N_Loop; 

exit  P_Loop  when  P_Answer  =  Output_Col_Ind ices 'LAST; 
P_Answer  :=  0utput_Col_Indices' SUCC(P_Answer) ; 

P_Right  s  «=  Right_Row_Indices'SUCC(P_Right) ; 


end  loop  P_Loop; 
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>.V 

w  « 

exit  M_Loop  when  M_Answer  *  Output_Row_Ind ices' LAST; 
M_Answer  :=  Output_Row_Ind ices' SUCC(M_Answer) ; 

MLeft  :=  Left_Row_Indices'SUCC(M_Left); 

end  loop  M_Loop; 

return  Answer; 

end 

pragma  PAGE; 


—  begin  processing  for  package  body 


begin 

—  —  make  sure  dimension  are  compatible 

—  —  need  to  have:  /m  x  nj  x  Ip  x  nj  :=  /m  x  p] 

if  not  (Lef t_Matrices'LENGTH(l)  ■  Output_Matrices'LENGTH(l)  and  — "m's" 

Left~Matrices'LENGTH(2)  -  0utput~Matrices'LENGTH(2)  and  — "n’s" 

Right_Matrices'LENGTH(l)  -  0utput_Matrices'LENGTH(2) )  then  — "p's" 

raise  Dimension_Error; 

end  if; 

^  end  Matrix_Matrix_Transpose_Multiply_Unrestricted; 
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separate  (General_Vector_Matrix  Algebra) 

package  body  Dot_Product_OperatIons_Unrestricted  is 

pragma  PAGE; 

function  Dot_Product  (Left  :  Lef t_Vectors; 

Right  :  Right_Vectors)  return  Result_Elements  is 


—  declaration  section - 


Answer  :  Result_Elements; 
L_Index  :  Left  Indices; 
R_Index  :  Right_Indices; 


—  —  begin  function  Dot  Product- 


begin 

Answer  :*  0.0; 

L_Index  :«  Lef t_Ind ices' FIRST; 

R_Index  Right_Indices' FIRST; 

Process: 

loop 

Answer  :«  Answer  +  Lef t(LIndex)  *  Right (RIndex) ; 

exit  Process  when  L  Index  -  Lef  t_Ind ices' LAST; 
L_Index  Left_IndTces'SUCC(L_Index); 

R_Index  :«=  Right_Indices'SUCC(K_Index); 

end  loop  Process; 

return  Answer; 

end  Dot_Product; 

pragma  PAGE; 


—  begin  processing  for  package  body 


begin 

—  —  make  sure  instantiated  vectors  are  of  the  same  length 

if  Lef  t_Vec  tors 'LENGTH  /=  Right_  Vectors 'LENGTH  then 
raise  Dimension_Error; 
end  if; 

end  Dot_Product_Operaticns_Unrestricted; 
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separate  (General_Vector  Matrix  Algebra) 

package  body  Diagonal_FuIl_MatrIx_Add_Unrestricted  is 

pragma  PAGE; 

function  "+"  (D_Matrix  :  Diagonal_Matrices; 

F_Matrix  :  Full_Input_Matrices)  return  Full_Output_Matrices  is 


—  declaration  section- 


Ansver 

A_Col_Index 

A_Col_Marker 

A_Row_Index 

D_Index 

F_Col_Index 

F  Row  Index 


Ful i_0u t pu t_Ma t r i ces ; 
Full_Output_Col_Indices ; 
Full_Output_Col_Indices; 
Full~Output_Row~Indices; 
Diagonal_Range; 
Full_Input_Col_Indices ; 
Full_Input_Row_Indices ; 


—  —  begin  function  "  +  * 


begin 

— first  assign  a  row  full  of  values,  then  add  in  diagonal  element 

AColMarker  FullOutputColIndices' FIRST; 

A_R°w_Index  s-  Full_Output_Row  Indices 'FIRST; 

DIndex  DiagonalRange' FIRST; 

F  Row_Index  s-  Full_Input_Row_Indices' FIRST; 

A<Id  Loop: 
loop 

A_Col_Index  :«  Full_Output_Col_Indices'FIRST; 

F_Col_Index  :*  Full_Input_Col_Indices'FIRST; 

Assign_Loop: 

loop 

Answer (A_Row_Indexf  A_Col_Index)  :■ 

F_Matrix(F_Row_Indexf  F_Col_Index) ; 

exit  Assign_Loop 

vhen  A_Col_Index  ■  Full_Output  Col_Indices'LAST; 
A_Col_Index  :■  Full_0utput~Col_In3ices '  SUCC(A_Col_Index) ; 
F_Col_Index  :*  Full_Input_Col_Indices' SUCC(F_Col_Index) ; 

end  loop  Assign_Loop; 

Answer(A_Row_Index,  A_Col_Marker)  := 

Answer(A  Row_Index7  A_Col_Marker)  +  D_Matrix(D_Index) ; 

exit  Add_Loop  when  D_Index  =  Diagonal_Range'LAST; 

A_Col_Marker  :=  Full_Output_Col_Indices'SUCC(A_Col_Marker) ; 
A_Row_Index  :«  Full  Output_Row_Indices'SUCC(A_Row_Index) ; 
D_Index  :=  D_In3ex  +  1; 

F_Row_Index  :=  Full_Input_Row_Indices'SUCC(F_Row_Index) ; 
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end  loop  Add_Loop; 
return  Answer; 
end  "+"; 
pragma  PAGE; 

—  begin  package  body  processing 

begin 

—  —  make  sure  square  matrices  of  the  same  size  have  been  instantiated 

if  not  (Diagonal_Matrices' LENGTH  «  Full_Input_Matrices'LENGTH(l)  and 

Full_Input_Matrices'LENGTH(l)  «  Full~Input_Matrices'LENGTH(2)  and 
Full  lnpu t_Ma t r i ces ' LENGTH ( 1 )  -  Full_0u t puI_Ma t r ices'  LENGTH ( 1 )  and 

Full_Output_Matrices'LENGTH(l)  *  Full_0utput~Matrices'LENGTH(2))  then 

raise  Dimension_Error; 

end  if; 

end  Diagonal_Full_Matrix_Add_Unrestricted; 


THIS  REPORT  HAS  BEEN  DELIMITED 
AND  CLEARED  FOR  PUBLIC  RELIABE 

UNDER  DOD  DIRECTIVE  5200,20  AND 

nu  RESTRICTIONS  ARE  IMPOSED  UPON 
ITS  USE  AND  DISCLOSURE, 

DISTRIBUTION  STATEMENT  A 

9 

APPROVED  FOR  PUBLIC  REL1ASE; 
DISTRIBUTION  UNLIMITED, 
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separate  (General_Vector_Matrix_Algebra) 
package  body  Vector_Operations_Constrained  is 

pragma  PAGE; 

function  "+"  (Left  s  Vectors; 

Right  :  Vectors)  return  Vectors  is 


—  declaration  section- 


Answer  :  Vectors; 

—  —  begin  Junction  "  +  " 

begin 

Process: 

for  INDEX  in  Indices  loop 

Answer (INDEX)  Left (INDEX)  +  Right(INDEX) ; 

end  loop  Process; 
return  Answer; 
end  "+"; 
pragma  PAGE; 

function  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors  is 

—  declaration  seclion- 

Answer  :  Vectors; 

—  —  begin  function  " 

begin 

Process: 

for  INDEX  in  Indices  loop 

Answer(INOCX)  :=  Left (INDEX)  -  Right(INDEX) ; 
end  loop  Process; 
return  Answer; 


end 


»  r  , 

~  f 
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pragma  PAGE; 

function  Vector  Length  (Input  :  Vectors)  return  Vector  Elements  is 


—  declaration  section- 


Temp  :  Vector_Elements_Squared; 


—  —  begin  function  Vector  Length 


begin 

Temp  :*  0.0; 

Process: 

'  for  INDEX  in  Indices  loop 
Temp  :=  Temp  + 

Input (INDEX)  *  Input (INDEX) ; 
end  loop  Process; 

return  Sqrt(Temp); 

end  Vector_Length; 

pragma  PAGE; 

function  Dot_Product  (Left  :  Vectors; 

Right  :  Vectors)  return  Vector_Elements_Squared  is 


—  declaration  section 


Answer  :  Vector_Elements_Squared; 

—  —  begin  Junction  Dot  Product 

begin 

Answer  :=  0.0; 

Process: 

for  INDEX  in  Indices  loop 

Answer  :=  Answer  +  Left(INDEX)  *  Right(INDEX) ; 
end  loop  Process; 
return  Answer; 
end  Dot_Product; 

end  Vector_0perations_Cons trained; 
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separate  (General  Vector_Matrix_Algebra) 
package  body  MatrIx_Operations_Constrained  is 

pragma  PAGE; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 


—  —  begin  function  "  + " 


begin 

Row  Loop: 

lor  Row  in  Row_Indices  loop 
Col  Loop: 

lor  COL  in  Col_Indices  loop 

Answer(Row,  COL)  :«  Left(Row,  COL)  + 

Right (Row,  COL); 

end  loop  Col_Loop; 
end  loop  Row_Loop; 
return  Answer; 
end  "+"; 
pragma  PAGE; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  sect  ion - 


Answer  :  Matrices; 


—  — begin  function 


begin 
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Answer(Row,  COL)  :  =  Left(Row,  COL)  - 

hight(Row,  COL); 

end  loop  Col_Loop; 
end  loop  Rov_Loop; 
return  Answer; 
end 

pragma  PAGE; 

function  n+n  (Matrix  :  Matrices; 

Addend  :  Elements)  return  Matrices  is 


—  declaration  section- 


Answer  :  Matrices; 


—  —  begin  Junction  "  +  " 


begin 

Row  Loop: 

lor  Row  in  Row_Indices  loop 
Col  Loop: 

lor  COL  in  Col_Indices  loop 

Answer(Row,  COL)  :«  Matrix(Row,  COL)  +  Addend; 
end  loop  Col_Loop; 
end  loop  Row_Loop; 

return  Answer; 

end  "+"; 

pragma  PAGE; 

function  (Matrix  :  Matrices; 

Subtrahend  :  Elements)  return  Matrices  is 


—  declaration  section- 


Answer  :  Matrices; 


—  — begin  function  "■ 


begin 


Rov_Loop: 
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for  Row  in  Row_Indices  loop 
Col  Loop: 

lor  COL  in  Col_Indices  loop 

Answer(Row,  COL)  :=  Matrix(Row,  COL)  -  Subtrahend 
end  loop  Col_Loop; 
end  loop  Row_Loop; 

return  Answer; 

end 

pragma  PAGE; 

procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices)  is 


—  declaration  section 


COL  :  Col_Indices; 
Row  :  Row  Indices; 


—  —  begin  procedure  Set  To  Identity  Matrix 


begin 

—  make  sure  input  matrix  is  a  square  matrix 
if  Matrik'LENGTH(l)  -  Matrix' LENGTH(2)  then 

Matrix  :*  (others  *>  (others  *>  0.0)); 

COL  :*  Col_Ind ices 'FIRST; 

Row  :=  Row_Ind ices 'FIRST; 

Row  Loop: 
loop 

—  set  diagonal  element  equal  to  I 
Matrix(Row,  COL)  :«  1.0; 

exit  when  Row  *  Row  Indices  lAST; 
COL  :=  Col_Indices'SUCC(COL); 

Row  :=  Row_Indices'SUCC(Row); 

end  loop  Row_Loop; 


else 

—  do  not  have  a  square  matrix 
raise  Dimension_Error ; 

end  if; 

end  Set_To_Identity_Matrix; 
pragma  PAGE; 

procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices)  is 
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begin 

Matrix  :=  (others  =>  (others  =>  0.0)); 
end  Set_To_Zero_Matrix; 
end  Ma t r ix_0pe rati ons_Cons t ra i ned ; 
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separate  (General_Vector_Matrix_Algebra) 

package  body  Dynamically_Sparse_Matrix_Operations_Constrained  is 
pragma  PAGE; 

procedure  SetTo  Identity  Matrix  (Matrix  :  out  Matrices)  is 


—  declaration  section 


COL  :  Col_Indices; 
Row  :  Row  Indices; 


—  —  begin  procedure  Set  to  Identity  Matrix 


begin 

—  make  sure  input  matrix  is  a  square  matrix 

if  Matrix' LENGTH(l)  «  Matrix' LENGTH(2)  then 

Matrix  :■  (others  «>  (others  «>  0.0)); 

COL  s-  Collndices' FIRST; 

Row  :■  Row_Ind ices'  FIRST; 

Row  Loop : 
loop 

—  set  diagonal  element  equal  to  1.0 
Matrix(Row,  COL)  1.0; 

exit  when  Row  -  Row_Ind ices' LAST; 
COL  Col_Indices ' SUCC(COL) ; 

Row  * ■  Row_Indices' SUCC(Row); 

end  loop  Row  Loop; 


else 

raise  Dimension_Error; 
end  if; 

end  Set_To_Identity_Matrix; 
pragma  PAGE; 

procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices)  is 
begin 

Matrix  :=  (others  =>  (others  =>  0.0)); 
end  Set_To_Zero_Matrix; 
pragma  PAGE; 

function  Add  To_Identity  (Input  :  Matrices)  return  Matrices  is 
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—  declaration  section 


Answer  :  Matrices; 

COL  :  Col_Indiees; 
Row  :  Row  Indices; 


—  —  begin  function  AddjoJdentity 


begin 

—  make  sure  input  is  a  square  matrix 

if  Input 'LENGTH(l)  -  Input '  LENGTH(2)  then 

Answer  :*=  Input; 

— add  "identity"  values  to  diagonal  elements 
COL  Collndices' FIRST; 

Row  :*  Row_Ind ices 'FIRST; 

Row  Loops 
loop 

if  Answer(Row,  COL)  /■  0.0  then 

Answer(Row,  COL)  :■  Answer(Row,  COL)  +  1.0; 
else 

Answer(Row,  COL)  :■  1.0; 
end  if; 

exit  when  Row  «=  Row_Indices' LAST; 

COL  Col_Indices'SUCC(COL); 

Row  :«  Row_Indices'SUCC(Row); 

end  loop  Row_Loop; 


else 

raise  Dimension_Error; 
end  if; 
return  Answer; 
end  Add_To_Identity; 
pragma  PAGE; 

function  Subtract_From_Identity  (Input  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 

COL  :  Col  Indices; 
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Row  :  Row  Indices; 


—  —  begin  procedure  Subtract  From  Identity 


begin 

—  make  sure  input  is  a  square  matrix 

if  Input 'LENGTH(l)  -  Input 'LENGTH(2)  then 

COL  :=  Collndices' FIRST; 

Row  :=  Row_Ind ices 'FIRST; 

Row  Loop: 
loop 

Col  Loop: 

lor  Temp_Col  in  Col_Indices  loop 

if  Input(Row,Temp_Col)  /«  0.0  then 
Answer ( Row fTemp_Col)  :-  -  Input(Row, 
else 

Answer (Row, Temp  Col)  :«  0.0; 
end  if; 

end  loop  Col_Loop; 

if  Answer(Row,  COL)  /«  0.0  then 

Answer (Row,  COL)  s«  Answer (Row,  COL)  +  1.0 
else 

Answer(Row,  COL)  1.0; 
end  if; 

exit  when  Row  -  Row  Indices' LAST; 

COL  :=  ColIndices'SUCC(COL); 

Row  :•=  Row_Indices'SUCC(Row); 

end  loop  Row_Loop; 


else 

raise  Dimens ion_Error; 
end  if; 

return  Answer; 
end  Subtract_From_Identity; 
pragma  PAGE; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 
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—  — begin  function  "  + 


begin 

Row  Loop: 

lor  Row  in  Row_Indices  loop 
Col  Loop: 

for  COL  in  Col_Indices  loop 

if  Left(Row,  COL)  -  0.0  then 
if  Right(Row,  COL)  *  0.0  then 
Answer(Row,  COL)  :  =  0.0; 
else 

Answer(Row,  COL)  :*  Right(Row,  COL); 
end  if; 

elsif  Right(Row,  COL)  -  0.0  then 

Answer(Row,  COL)  :  =  Left  (Row,  COL); 
else 

Answer(Row,  COL)  :  =  Left(Row,  COL)  + 

Right (Row,  COL); 

end  if; 

end  loop  Col_Loop;  . 
end  loop  Row_Loop; 
return  Answer; 
end  "+"; 
pragma  PAGE; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 


—  — begin  function 


begin 

Row  Loop: 

for  Row  in  Row_Indices  loop 
Col  Loop: 

for  COL  in  Col_Indices  loop 

if  Left(Row,  COL)  =  0.0  then 
if  Right (Row,  COL)  =0.0  then 
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Answer (Row,  COL)  0.0} 
else 

Answer(Row,  COL)  :=  -  Right(Row,  COL); 
end  if; 

elsif  Right(Row,  COL)  =  0.0  then 

Answer(Row,  COL)  :=  Left(Row,  COL); 
else 

Answer(Row,  COL)  :«  Left (Row,  COL)  - 

Right (Row,  COL); 

end  if; 

end  loop  Col_Loop; 
end  loop  Row_Loop; 
return  Answer; 

end 

end  Dynamically_Sparse_Matrix_Operations_Cons trained; 
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separate  (General_Vector_Matrix_Algebra) 

package  body  Symmetric_Full_Storage_Matrix_Operations_Constrained  is 


pragma  PAGE; 

procedure  Change_Element  (Nev_Value 

Row 

COL 

Matrix 


in 

Elements; 

in 

Row  Indices; 

in 

Col_Indices; 

in  out 

Matrices)  is 

—  declaration  section- 


S_Col  :  Col_Indices; 
S  Row  :  Row  Indices; 


—  —  begin  procedure  Change  Element- 


begin 

S_Col  :■  Col_Indices'VAL(Row_Indices'POS(Row)  - 

Row_Indices'POS(Row_Ind ices 'FIRST)  + 

Collndices ' P0S(Col_Indices ' FIRST) ) ; 

SRow  : m  Row_Indices'VAL(Col_Indices'POS(COL)  - 

Col_Ind ices' POS ( Col_Ind ices ' FIRST )  +  { 

Rowlndices' P0S(Row_Indices ' FIRST) ) ; 

Matrix(Row,  COL)  :*  New_Value; 

Matrix(S_Row,  S_Col)  s*  New_Value; 

end  Change_Element ; 

pragma  PAGE; 

procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices)  is 


—  declaration  section 


COL  :  Col_Indices; 
Row  :  Row  Indices; 


—  —  begin  procedure  Set  to  Identity  Matrix 


begin 

Matrix  :=  (others  =>  (others  =>  0.0)); 

COL  :=  Col_Indices' FIRST; 

Row  :=  Row_Indices' FIRST; 

Row  Loop: 

loop 
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—  set  diagonal  element  equal  to 
Matrix(Row,  COL)  :=  1.0; 

exit  when  Row  =  Row  Indices 'LAST; 

COL  Col_Indices'SUCC(COL); 

Row  :*  Row_Indices'SUCC(Row) ; 

end  loop  RowJLoop; 

end  Set_To_Identity_Matrix; 

pragma  PAGE; 

procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices)  is 
begin 

Matrix  :*  (others  ■>  (others  «>  0.0)); 
end  Set_To_Zero_Matrix; 
pragma  PAGE; 

function  Add_To_Identity  (Input  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 

COL  :  Col_Indlces; 

Row  :  Row  Indices; 


—  —  begin  function  Add  to  Identity 


begin 

Answer  :»  Input; 

COL  :=  Collnd ices 'FIRST; 

Row  ;=  Row_Indices' FIRST; 
Access_Diagonal_Elemen  t  s : 
loop 

Answer(Row,C0L)  :*=  Answer  (Row,  COL)  +  1.0; 

exit  vhen  Row  =  Rov_Ind ices'  LAST; 

COL  :=  Col_Indices' SUCC(COL) ; 

Row  :=  Row_Indices' SUCC(Row) ; 

end  loop  Access_Diagonal_Elements; 

return  Answer; 

end  Add_To_Identity; 
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pragma  PAGE; 

function  Subtract_From_Identity  (Input  s  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 

Row  :  Row_Indices; 
S_Col  :  Col_Indices; 
S  Row  :  Row  Indices; 


—  —  begin  junction  Subtract  from  Identity 


begin 

—  handle  first  diagonal  element 

Answer (Row_Ind ices 'FIRST,  Col  Indices 'FIRST)  :* 

1.0  -  Input (Row  lndices' FlEST,  Col_Indices' FIRST); 

—  will  subtract  the  remaining  of  the  input  matrix  from  an  identity  matrix 

—  by  doing  the  following: 

o  subtracting  the  nondiagonal  elements  in  the  bottom  half  of  the 
matrix  from  0.0, 

—  o  assigning  values  obtained  in  the  bottom  half  of  the  matrix  to  the 

symmetric  elements  in  the  top  half  of  the  matrix,  and  then 

—  o  subtracting  the  diagonal  elements  from  1.0 

—  S  Col  will  go  across  the  columns  as  Row  goes  down  the  rows  to  keep 

—  track  of  the  column  containing  the  diagonal  element 
SCol  :*  Col_Indices'SUCC(Col_Ind ices 'FIRST); 

Row  :=  Row_Indices'  SUCC(Row_Indices'  FIRST) ; 
Do_Every_Row_Except_First : 

loop 

—  S  Row  will  go  down  the  rows  as  Col  goes  across  the  columns 
SRow  :«=  Row  Indices 'FIRST; 

Subtract_Nondiagonal  Elements_From  Zero: 
for  COL  in  Col_InHices' FIRST  .. 

Col_Indices'VAL(Row_Indices'POS(Row)  -  1)  loop 

Answer(Row,C0L)  :=  -  Input (Row, COL) ; 

Answer(S_Row,S_Col)  :=  Answer (Row, COL); 

S_Rov  :=  Row_Indices' SUCC(S_Row); 

and  loop  Subtract_Nondiagonal_Elements_From_Zero; 

--subtract  diagonal  element  from  1.0 

Answer (Row,  S_Col)  :=  1.0  -  Input (Row,  S_Col); 

exit  when  Row  =  Row_Ind ices'  LAST; 

S  Col  :=  Col  Indices 'SUCC(S  Col); 
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Row  :=  Row_Indices'SUCC(Row); 
end  loop  Do_Every_Row_Except_First ; 
return  Answer; 
end  Subtract_From_Identity; 
pragma  PAGE; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 

Row  :  Row_Indices; 
S_Col  :  Col_Indices; 
S  Row  :  Row  Indices; 


—  — begin  function  "  +  “ 


begin 

—  handle  frst  diagonal  element 

Answer(Row_Indices ' FIRST,  Col  Indices 'FIRST)  :•> 

Left(Rov_Indices' FIRST,  Col  Indices' FIRST)  + 

Right (Row_Indices' FIRST,  CoT_Indices' FIRST) ; 

—  addition  calculations  will  only  be  carried  out  on  the  bottom  half 

—  of  the  input  matrices  followed  by  assignments  to  the  symmetric 

—  elements  in  the  top  half  of  the  matrix 

— as  Row  goes  down  the  rows,  S  Col  will  go  across  the  columns  to  keep 

—  track  of  the  column  containing  the  diagonal  element 
S_Col  :■  Col_Indices'  SUCC(Col_Ind ices'  FIRST) ; 

Row  Row_Indices'SUCC(Row_Indices' FIRST); 
Do_All_Rows_Except_First: 

loop 

— as  Col  goes  across  the  columns,  5  Row  will  go  down  the  rows; 

S  Row  :*  Row_Ind ices'  FIRST; 

A<Id  Bottom_Half_Elements: 

lor  COL  in  Col_Indices' FIRST  .. 

Col_Indices'VAL(Row_Indices' POS(Row)  -  1)  loop 

— add  elements  in  bottom  half  of  the  matrix 

Answer  (Row,  COL)  :=  Left(Row,  COL)  +  Right(Row,  COL); 

—  assign  value  to  symmetric  element  in  top  half  of  matrix 

Answer(S_Row,S_Col)  :=  Answer(Row,  COL); 


S  Row 


:=  Row  Indices' SUCC(S  Row); 
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end  loop  Add_Bottom_Half_Elements; 

— add  diagonal  elements  together 

Answer(Row,  S_Col)  :=  Left (Row, S_Col)  +  Right(Row, S_Col) ; 

exit  vhen  Row  =  Row_Indices'LAST; 

SCol  :=  Col_Indices'SUCC(S  Col); 

Row  :*  Row_Indices'SUCC(Rowy; 

end  loop  Do_All_Rows_Except_First; 

return  Answer; 

end  "+"; 

pragma  PAGE; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices  is 


—  declaration  section 


Answer  :  Matrices; 

Row  :  Row_Indices; 
S_Col  s  Col_Indices; 
S_Row  *  Row_Indices; 


—  —  begin  function  " 


begin 

—  handle  first  diagonal  element 

Answer (Row_Ind ices'  FIRST,  Col  Indices' FIRST)  :  = 

Left(Row_Ind ices 'FIRST,  Col  Indices' FIRST)  - 
Right (Rowlndices ' FIRST,  CoI_Indices ' FIRST) ; 

—  subtraction  calculations  will  only  be  carried  out  on  the  bottom  half 
— of  the  input  matrices  followed  by  assignments  to  the  symmetric 

—  elements  in  the  top  half  of  the  matrix 

—  as  Row  goes  down  the  rows,  S  Col  will  go  across  the  columns  to  keep 

—  track  of  the  column  containing  the  diagonal  element 

S  Col  :=  Col_Indices'  SUCC(Col_Indices '  FIRST) ; 

Row  :=  Row_Indices' SUCC(Row_Indices' FIRST) ; 
Do_All_Rows_Except_First: 
loop 

—  as  Col  goes  across  the  columns,  S  Row  will  go  down  the  rows: 

S_Row  :=  Row_Ind ices 'FIRST; 

Subtract_Bottom_Half  Elements: 
for  COL  in  Col_In3ices' FIRST  .. 

Col~Indices'VAL(Row_Indices'POS(Row)  -  1)  loop 

—  subtract  elements  in  bottom  half  of  the  matrix 
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Answer(Row,C0L)  :=  Left(Rov,  COL)  -  Right(Row,  COL); 

—  assign  value  to  symmetric  element  in  top  half  of  matrix 
Answer(S_Row,S_Col)  :=  Answer(Row,  COL); 

S_Rov  :=  Row_Indices' SUCC(S_Rov) ; 

end  loop  Subtract_Bottom_Half_Elements; 

—  subtract  diagonal  elements  together 

Answer(Row,  S_Col)  Left (Row, S_Col)  -  Right(Row,S_Col); 

exit  when  Row  ■  Row  Indices' LAST; 

S  Col  s-  Col_Ind i ces ' SUCC( S  Col); 

Row  :■  Row_Indices' SUCC(Rowy; 

end  loop  Do_All_Rows_Except_First; 

return  Answer; 

end 

pragma  PAGE; 

—  processing  for  Symmetric  Full  Storage 

—  Matrix  Operations  Constrained  package  body 

begin 

if  Matrices 'LENGTH(l)  /-  Matrices'LENGTH(2)  then 
raise  Dimens ion_Error; 
end  if; 

end  Symmetric_Full_Storage_Matrix_Operations_Cons trained; 
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separate  ( Gene ral_Vec t or_Ma t r i x_Algeb ra ) 

package  body  Vector_Scalar_Operations_Constrained  is 

pragma  PAGE; 

function  (Vector  :  Vectors2; 

Multiplier  :  Scalars)  return  Vectorsl  is 

—  declaration  section- 

Answer  :  Vectorsl; 

—  — begin  function 

begin 

Process: 

for  INDEX  in  Indices  loop 

Answer(INDEX)  :«  Vector(INDEX)  *  Multiplier; 
end  loop  Process; 
return  Answer; 
end 

pragma  PAGE; 

function  "/"  (Vector  :  Vectorsl; 

Divisor  :  Scalars)  return  Vectors2  is 

—  declaration  section- 

Answer  :  Vectors2; 

—  — begin  function  Vector  Scalar  Divide 

begin 

Process: 

for  INDEX  in  Indices  loop 

Answer(INDEX)  :=  Vector(INDEX)  /  Divisor; 
end  loop  Process; 
return  Answer; 


end  "/"; 
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V  N 


end  Vec tor_Scalar_Opera t ions_Cons t rained ; 
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separate  (General  Vector_Matrix_Algebra) 

package  body  MatrTx_Scalar_Operations_Constrained  is 

pragma  PAGE; 

function  (Matrix  :  Matricesl; 

Multiplier  :  Scalars)  return  Matrices2  is 


—  declaration  section- 


Answer  :  Matrices2; 


—  — begin  function 


begin 

Row  Loop: 

lor  Row  in  Row_Indices  loop 
Col_Loop : 

for  COL  in  Col_Indices  loop 
Answer(Row,  COL)  Matrix(Row,  COL)  *  Multiplier; 
end  loop  ColLoop; 
end  loop  Row_Loop; 
return  Answer; 

end 

pragma  PAGE; 

function  "/"  (Matrix  :  Matrices2; 

Divisor  :  Scalars)  return  Matricesl  is 


—  declaration  section- 


Answer  :  Matricesl; 


—  —  begin  function  "/" 


begin 

Row_Loop: 

for  Row  in  Rov_Indices  loop 
Col_Loop: 

for  COL  in  Col  Indices  loop 
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Answer(Row,  COL)  Matiix(Row,  COL)  /  Divisor 
end  loop  Col_Loop; 
end  loop  Rov_Loop; 
return  Answer; 
end  ; 

end  Matrix_Scalar_Operations_Cons trained; 
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separate  ( General_Vec  tor_Ma t  r ix_Algebra ) 

function  Matrix_Matrix_Multiply_Restricted  (Left  s  Lef t_Matrices; 

Right  :  Right_Matrices)  return  Output_Mat rices  is 


—  —  declaration  section- 


Answer  :  Output_Matrices; 


—  begin  of  function  Matrix  Matrix  Multiply  Restricted 

begin 

Answer  :«  (others  =>  (others  «>  0.0)); 

MLoop: 

for  M  in  MIndices  loop 
P_Loop : 

for  P  in  P_lndices  loop 
N_Loop: 

for  N  in  N_Indices  loop 

Answer(M,  P)  j*  Answer(M,  P)  + 

Lef t(M,  N)  *  Right (N,  P); 

end  loop  N_Loop; 
end  loop  P_Loop; 
end  loop  M_Loop; 
return  Answer; 

end  Ma  t  r  i  x_Ma  t  r i x_Mul  tip ly_Res  t  r  i  c  t  ed ; 
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separate  ( General_Vec tor_Ma t r ix_Algebra ) 
function  Matrix_Vector_Multiply_Res  trie  ted 
(Matrix  :~Input_Matrices; 

Vector  :  Input_Vectors)  return  Output_Vectors  is 


—  —  declaration  section- 


Answer  :  Output_Vectors; 

—  begin  function  Matrix  Vector  Multiply  Restricted 

begin 

Answer  :=  (others  =>  0.0); 

M_Loop : 

for  M  in  Indicesl  loop 
N_Loop : 

for  N  in  Indices2  loop 

Answer(M)  :*  Answer (M)  + 

Matrix(M,  N)  *  Vector(N); 

end  loop  NLoop; 
end  loop  M_Loop; 
return  Answer; 

end  Matrix_Vector_Multiply_Restricted; 
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separate  (General_Vector_Matrix_Algebra) 
function  Vector  Vector_Transposi_Multiply_Restricted 
(LeTt  :  Left_Vectors  ; 

Right  :  Right_Vectors)  return  Matrices  is 


—  —  declaration  section 


Answer  :  Matrices; 


—  begin  function  Vector  Vector  Transpose  Multiply  Restricted 

begin 

M_Loop: 

for  M  in  Indicesl  loop 
N_Loop : 

for  N  in  Indices2  loop 

Answer(M,  N)  Left(M)  *  Right(N); 
end  loop  N_Loop; 
end  loop  M_Loop; 
return  Answer; 

end  Vector_Vector_Transpose_Multiply_Restricted; 
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separate  (General_Vector_Matrix_Algebra) 
function  Matrix  Matrix_Transpose_Multiply_Restricted 
(Lelt  :  Lef t_Matrices; 

Right  :  Right_Matrices)  return  Output_Ma trices  is 


—  —  declaration  section 


Answer  :  Output_Matrices; 

—  begin  function  Matrix  Matrix  Transpose  Multiply  Restricted 

begin 

Answer  :=  (others  *>  (others  *>  0.0)); 

MLoop: 

for  M  in  M_Indices  loop 
P_Loop : 

for  P  in  P_Indices  loop 
N_Loop : 

for  N  in  N  Indices  loop 

Answer(M,  P)  :«  Answer(M,  P)  + 

Lef t(M,  N)  *  Right(P,  N); 

end  loop  N_Loop; 
end  loop  P_Loop; 
end  loop  M_Loop; 
return  Answer; 

end  Ma  t  r  i  x_Ma  t  r  i  x_Trans  pose_Mul  t  i  ply_Res  t  r  i  c  t  ed ; 
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separate  ^General_Vector_Matrix_Algebra) 
function  Dot_Product_Operations_Restricted 
(Left  s  Lef t_Vectors; 

Right  :  Right_Vectors)  return  Result_Elements  is 


—  — declaration  sect  i  on  - 


Answer  :  Result_Elements; 

—  begin  function  Dot  Product  Operations  Restricted 

begin 

Answer  :=  0.0; 

Process: 

for  INDEX  in  Indices  loop 

Answer  :«  Answer  +  Left (INDEX)  *  Right(INDEX) ; 
end  loop  Process; 
return  Answer; 

end  Dot_Product_Operations_Restricted; 
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separate  (General_Vector_Matrix  Algebra) 
function  Diagonal_Full_Matrix_A3d_Res trie ted 
(D_Matrix  :  Diagonal_Matrices; 

F  Matrix  :  Full  Matrices)  return  Full  Matrices  is 


—  — declaration  section- 


Answer 

Diag_Index 

INDEX 


Full_Matrices; 
Diagonal_Range ; 
Indices; 


-  -begin  function  Diagonal  Full  Matrix  Add Restricted 


begin 

—  — assign  all  values  to  answer  and  then  add  in  diagonal  elements 
Answer  F_Matrix; 

—  —  now  add  in  diagonal  elements 

Diaglndex  :«  Diagonal  Range' FIRST; 

INDEX  Indices 'FIRST; 

Add  Loop: 
loop 

Answer  (INDEX,  INDEX)  Answer  (INDEX,  INDEX)  +  D_Matrix(Diag_Index); 

exit  when  INDEX  -  Indices 'LAST; 

Diag_Index  :*  Diagonal  Range' SUCC(Diag_Index) ; 

INDEX  Indices' SUCC(INDEX); 

end  loop  Add_Loop; 

return  Answer; 

end  D i agona l_Full_Matri x_Add_Res t r i c t ed ; 
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separate  (General_Vector  Matrix  Algebra) 

package  body  Vector_MatrIx_MultIply_Unrestricted  is 

function  (Vector  :  Input_Vectors; 

Matrix  :  Input_Matrices)  return  Output_Vectors  is 


—  declaration  section- 


Answer  :  Output_Vectors  :«  (others  ->  0.0); 
M_V  :  Input_Vector_Indices; 

N_A  :  Output  Vector_Indices; 

N  :  Col_In3ices; 

M  :  Row  Indices; 


—  — begin  function 


begin 

N_A  :*  Output  Vector_Indices' FIRST; 

N  :«  Col_In3ices' FIRST; 

N_Loop: 

loop 

MV  s*  InputVector  Indices 'FIRST; 

M  im  Rovlndices' FIRST; 

M_Loops 

loop 

Answer  (N_A)  s«  Answer (N_A)  +  Vector(M_V)  *  Matrix(M,  N); 

exit  vhen  M  ■  Row  Indices' LAST; 

M  :=  Row_Ind ices' SUCC ( M ) ; 

M  V  :=  Input_Vector_Indices '  SUCC(M_V) ; 

end  loop  MLoop; 

exit  vhen  N  -  Col_Indices'LAST; 

N  :=  Col_Indices'SUCC(N); 

N_A  :=  Output_Vector_Indices' SUCC(N_A); 

end  loop  N_Loop; 

return  Answer; 

end 

pragma  PAGE; 


—  begin  package  Vector  Matrix  Multiply  Unrestricted 


begin 
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—  —  make  sure  package  has  been  instantiated  with  the  correct  dimensions; 

—  —  the  following  dimensions  are  expected:  llxmj  *  fmxnj  =  >  [Ixn] 

if  Input_Vectors' LENGTH  /=  Input_Matrices'LENGTH(l)  or 
Input_Matrices'LENGTH(2)  /=  Output_Vectors' LENGTH  then 

raise  Dimens ion_Error; 

end  if; 

end  Vector_Matrix_Multiply_Unrestricted; 


—  m's  not  equal 

—  n's  not  equal 
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separate  (General_Vector_Matrix_Algebra) 
function  Vector  Matrix_Multiply  Restricted 
(Vector  :  Input_Vectors; 

Matrix  :  Input_Matrices)  return  Output_Vectors  is 


—  — declaration  section 


Answer  s  Output_Vectors  :■  (others  «>  0.0); 

—  begin  function  Vector  Matrix  Multiply  Restricted 

begin 

N_Loop: 

for  N  in  Indices2  loop 
M_Loop: 

for  M  in  Indicesl  loop 

Answer(N)  :«  Answer(N)  +  Vector(M)  *  Matrix(M,N); 
end  loop  MLoop ; 
end  loop  N_Loop; 
return  Answer; 

end  Vector_Matrix_Multiply_Restricted; 
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separate  ( Gene ral_Vec  t or_Ma t  r i x_Algebra ) 

package  body  Aba_Trans_Dynam_Sparse_Matrix_Sq_Matrix  is 


function  Sparse  Lef t_Multiply(Lef t  :  A_Elements; 

Right  :  B_Elements  )  return  A_Elements  is 

Answer  :  A_Elements; 
begin 

if  Left  «  0.0  then 
Answer  0.0; 
else 

Answer  :■=  Left  *  A_Elements(  Right  ); 
end  if; 

return  Answer; 
end  Sparse_Lef t_Multiply; 


function  Sparse_Right_Multiply(  Left  s  A_Elements; 

Right  :  A_Elements  )  return  C_Elements  is 

Answer  :  C_Elements; 
begin 

if  Right  -  0.0  then 
Answer  :«  0.0; 
else 

Answer  :*  C_Elements(  Left  *  Right  ); 
end  if; 

return  Answer; 
end  SparseRightMultiply; 


function  Matrix_Multiply  is  new  Matrix_Matrix_Multiply_Restricted 


(  Lef t_Elements  ■> 
Right_Elements  => 
0utput_Elements  -> 
M_Indices  ■> 

N_Indices  ■> 

P_Indices  ■> 

Left_Matrices  «> 
Right_Matrices  => 
0utput_Ma trices  => 
"*»  »> 


A_Elements, 

B_Elements, 

A_Elements, 

M_Indices, 

N_Indices, 

N_Indices, 

A_Ma trices, 

B_Ma trices, 

A_Matrices, 

Sparse  Left  Multiply  ); 


function  Matrix_Transpose_Multiply  is  new 
Matrix_Matrix_Transpose_Multiply_Restricted 
(  Lef t_Elements  *=>  A_Elements, 
Right_Elements  *>  A_Elements, 

Output  Elements  =>  C_Elements, 

=>  M_Indices, 

=>  N_Indices, 

=>  M_Indices, 

=>  A_Matrices, 

=>  A_Ma trices, 
0utput_Matrices  =>  C_Matrices, 


M_Indices 
N_Indices 
P_Indices 
Lef t_Matrices 
Right_Matrices 
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=>  Sparse_Right_Multiply  ); 


pragma  PAGE; 

function  Aba_Transpose(  A  :  A_Matrices; 

B  :  Beatrices  ) 

return  C  Matrices  is 


Intermediate  :  A_Matrices; 
Answer  :  C_Matrices; 

begin 


-  multiply  A  *  B  - 


Intermediate  Matrix_Multiply(  Left  ■>  A, 

Right  ->  B  ); 


-  multiply  AB  *  transpose  of  A  - 


Answer  Matrix_Transpose_Multiply(  Left  ■>  Intermediate, 

Right  ■>  A  ); 

return  Answer; 
end  Aba_Transpose; 

end  Aba_Trans_Dynam_Sparse_Ma  t  r  ix_Sq_Ma  t  r ix ; 
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M  * 

separate  (General_Vector_Matrix_Algebra) 
package  body  Aba_Trans_Vector_Sq_Matrix  is 


function  Multiply_Vm(  Left  :  Vector_Elements; 

Right  :  Matrix_Elements  )  return  Vector_Elements  is 

begin 

return  Left  *  Vector_Elements(  Right  ); 
end  Multiply_Vm; 


function  Multiply_Vv(  Left  :  Vector_Elements; 

Right:  Vector~Elements  )  return  Scalars  is 

begin 

return  Scalars(  Left  )  *  Scalars(  Right  ); 
end  MultiplyVv; 


function  Vector_Matrix_Multiply  is  new  Vector  Matrix_Multiply_Restricted 


(  Input_Vector_Elements  «> 
Hatrix_Elements  ■> 

Output_Vector_Elements  -> 
Indicesl  ■> 

Indices2  -> 

InputVectors  -> 

Input_Matrices  -> 

OutputVectors  -> 

-> 


Vector_Elements , 
Matrix_Elemen ts , 
Vector_Elements , 
Indices, 

Indices, 

Vectors, 
Matrices, 
Vectors, 
MultiplyVm  ); 


function  Vector_Vector_Multiply  is  nev  Dot_Product_Operations_Restricted 


(  Lef t_Elements  *> 
Right_Elements  ■> 
Result_Elements  -> 
Indices  -> 

Left_Vectors  -> 
Right_Vectors  ■> 
«*"  «> 


Vector_Elements, 
Vector~Elements, 
Scalars, 

Indices, 

Vectors, 

Vectors, 

Multiply  Vv  ); 


pragma  PAGE; 

function  Aba_Transpose(  A  :  Vectors; 

B  :  Matrices  )  return  Scalars  is 


Partial_Answer  :  Vectors; 
Answer  :  Scalars; 


begin 


-  multiply  A  *  B- 


Partial_Answer  :=  Vector_Matrix_Multiply(  Vector  =>  A, 

Matrix  =>  B  ); 
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-  multiply  AB  *  transpose  of  A  - 


Answer  :=  Vector_Vectoi_Multiply(  Left 

Right 


=>  Partial_Answer , 
»>  A  ); 


return  Answer; 
end  Aba_Transpose; 
end  Aba_Trans_Vector_Sq_Matrix; 
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v-'  separate  (General_Vector_Matrix_Algebra) 
package  body  Aba  Trans_Vector  Scalar  is 


—  —  Operators  provided  for  instantiations  - 


function  Multiply_Vs(  Left  :  Vector_Elements; 

Right  :  Scalars  )  return  Vector_Elements  is 

begin 

return  Left  *  Vector_Elements(  Right  ); 
end  Multiply_Vs; 


—  —  This  operator  is  not  used,  but  is  required  for  the  instantiation.  - 

—  —  it  is  "dummied"  out  to  make  it  as  small  as  possible. 


function  Divide_Vs(  Left  :  Vector_Elements; 

Right  :  Scalars  )  return  Vector_Elements  is 

begin 

return  Left} 
end  Divide  Vs; 


f 


function  Multiply_Vv(  Left  :  Vector_Elements; 

Right  i  VectorElements  )  return  MatrixElements  is 

begin 

return  Matrix_Elements(  Left  )  *  Matrix_Elements(  Right  ); 
end  MultiplyVv; 


—  —  Instantiations  for  ABA  transpose 


package  Vs_0pns  is  new  Vector_Scalar_Operations_Constrained 


(  Elementsl 
Element s2 
Scalars 
Indices 
Vectorsl 
Vectors2 
»*" 
ft /ft 


«>  Vector_Elementsf 
«>  Vector_Elements, 
«=>  Scalars, 

=>  Indices, 

»>  Vectors, 

■>  Vectors, 

=>  Multiply_Vs, 

=>  Divide  Vs  ); 


use  Vs_Opns; 


function  Vv_Transpose_Multiply  is  new 

Vec  tor_Vec  tor_Transpose_Mul t i ply_Res  t  r i c ted 
(  Lif t_Vector_Elements  =>  Vector_Elements, 
Righl  Vector_Elements  =>  Vector~Elements, 
Matrix_Elements  =>  Matrix_Elements, 

Indicesl  =>  Indices, 

Indices2  =>  Indices, 
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Lef t_Vectors 

Right_Vectors 

Matrices 

it*  it 


*>  Vectors, 

«>  Vectors, 

=>  Matrices, 

=>  Multiply_Vv  ); 


pragma  PAGE; 

function  Aba_Transpose(  A  s  Vectors; 

B  :  Scalars  )  return  Matrices  is 


Partial_Ansver  :  Vectors; 
Answer  :  Matrices; 


begin 


-  multiply  A  *  B  - 


Partial  Answer  :=  A  *  B; 


-  multiply  AB  *  transpose  of  A  - 

Answer  Vv_Transpose_Multiply(  Left  ->  Partial_Answer, 

Right  ->  A  ); 

return  Answer; 
end  AbaTranspose; 
end  Aba  Trans  Vector  Scalar; 
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separate  (General_Vector  Matrix_Algebra) 
package  body  Column_MatrIx_Operations  is 

pragma  PAGE; 

function  Set_Diagonal_And_Subtract_From_Identity 
(  Column  :  Vectors; 

Active_Column  :  Indices  )  return  Column_Matrices  is 

Answer  :  Column_Ma trices; 

begin 

Answer. Col_Vec tor  :■  Column; 

Answer. Diagonal  :■  TRUE; 

Answer. Ac tive_Column  :«  Active_Column; 

Range_Loop: 

for  INDEX  in  Indices  loop 

Answer. Col_Vector(  INDEX  )  :■  -  Answer .Col_Vector(  INDEX  ); 
end  loop  Range  Loop; 

Answer. Col_Vector?Active_Column)  Answer .Col_Vector(Active  Column)  + 

1.0; 

return  Answer; 

end  Se  t_Diagonal_And_Sub  t  rac  t_From_Iden  t  i  ty ; 
pragma  PAGE; 

function  Aba_Transpose(  A  :  Column  Matrices; 

B  s  B  MatrTces  )  return  C  Matrices  is 

Answer  s  C_Matrices; 

Temp_Vector  s  Vectors  :«  A.Col_Vector; 

begin 

if  A. Diagonal  then 

Temp_Vector(  A.Active_Column  )  :«  Temp_Vector(  A.Active_Column  )  -  1.0; 
M_Loop: 

for  Row  in  Indices  loop 
P_Loop : 

for  COL  in  Indices  loop 

Answer(  Row,  COL  )  :«  C_Matrix_Elements( 

Temp_Vector(  Row  )  *  Temp  Vector(  COL  )  * 

B(  A. Active  Column,  A. ActIve_Column  )  + 

Temp_Vector^  COL  )  *  B(  A.Active_Column,  Row  )  + 

Temp  Vector (  Row  )  *  B(  A.Active_Column,  COL  )  + 

B(  Row,  COL  )  ); 
end  loop  P_Loop; 
end  loop  M_Loop;~ 

else 

Ml_Loop: 

for  Row  in  Indices  loop 
Pl_Loop: 

for  COL  in  Indices  loop 

Answer (  Row,  COL  )  :=  C_Matrix_Elements( 

A.Col_Vector(  Row  )  *  A.Col~Vector(  COL  )  * 

B(  A.Active_Column,  A.Active_Column  )  ); 
end  loop  Pl_Loop; 
end  loop  Ml  Loop; 
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end  if; 

return  Answer; 
end  Aba_Transpose; 
pragma  PAGE; 

function  Aba_Symm_Transpose(  A  :  Column  Matrices; 

B  s  B_MatrTces  )  return  C_Matrices  is 

Answer  s  C_Mat rices; 

LAST  :  Indices; 

Temp_Vector  :  Vectors  :*  A.Col_Vector; 

begin 

LAST  :-=  Indices 'LAST; 

if  A. Diagonal  then  —  Diagonal  value  is  I  - 

Temp_Vector(  A.Active_Column  )  :*  Temp_Vector(  A.Active_Column  )  -  1.0; 
M_Loop : 

for  Row  in  Indices  loop 
P  Loop: 


-  Calculate  values  - 


for  COL  in  Row  ..  Indices'LAST  loop 

Answer(  Row,  COL  )  C_Matrix_Elements( 
Temp_Vector(  Row  )  *~Temp  Vector(  COL  )  * 

B(  A. Active  Column,  A.ActIve_Column  )  + 

Temp_VectorT  COL  )  *  B(  A.Active_Column,  Row  )  + 
Temp_Vector(  Rov  )  *  B(  A.Active_Column,  COL  )  + 
B(  Row,  COL  )  ) ; 


-  Assign  calculated  value  to  corresponding  - 

-  lower  triangular  position 


Answer(  COL,  Rov  )  :«=  Ansver(  Row,  COL  ); 
end  loop  PJLoop; 
end  loop  M_Loop; 

else  —  diagonal  value  is  0  — 

Ml_Loop: 

for  Rov  in  Indices  loop 
Pl_Loop: 


-  Calculate  values  - 


for  COL  in  Rov  ..  Indices'LAST  loop 

Ansver(  Row,  COL  )  :=  C_Matrix_Elements( 

A.Col_Vector(  Row  )  *  A.Col_Vector(  COL  )  * 
B(  A. Active  Column,  A. Active  Column  )  ); 


-  Assign  calculated  value  to  corresponding  ■ 

-  lower  triangular  position 


Answer (  COL,  Row  )  :=  Answer (  Row,  COL  ); 
end  loop  Pl_Loop; 
end  loop  Ml_Loop; 
end  if; 


—  Diagonal  value  is  0  — 
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ret  im  Answer; 
end  Aba_Symm_Transpose; 
end  Column  Matrix  Operations; 
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